CONTROL DATA 

CORPORATION 











Additional copies of this manual may be obtained 
from the nearest Control Data Corporation Sales 
office listed on the back cover. 


CONTROL DATA CORPORATION 

Documentation Department 

August, 1966 3145 PORTER DRIVE ®1966, Control Data Corporation 

Pub. No. 60057600, Rev. B PALO ALTO, CALIFORNIA Printed in the United States of America 



PREFACE 


This reference manual was written for programmers using the FORTRAN 
system. The manual assumes a basic knowledge of the FORTRAN language 
although it includes a section on general properties for users, less familiar 
with the construction of the FORTRAN language. 

The manual contains information required to produce and run a FORTRAN 
job. 
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3100/3200/3300/3500 FORTRAN SYSTEM 


1 


1.1 

MACHINE 

CONFIGURATION 


1.2 

OPTIONAL 

OUTPUTS 


The FORTRAN system provides a convenient language for expressing mathe¬ 
matical and scientific problems in familiar notation. 

A set of FORTRAN statements, presented as a source program to the 
FORTRAN compiler, produces an object program that contains the 
machine language commands for solving a problem. Compilation progresses 
sequentially, from one subprogram to the next; each subprogram is independ¬ 
ently compiled. Once compiled, a program may be repeatedly loaded and run on 
the computer with varying sets of data. The compiler operates in conjunction 
with the SCOPE monitor system of a Control Data® 3100, 3200, 3300 or 3500 
computer. It generates programs to be executed under SCOPE control. 

Source programs require little modification to be accepted by FORTRAN com¬ 
pilers for larger CONTROL DATA computers. 


Basic configuration for compiling a source program: 

8K memory unit 

• Magnetic tape library unit 

• Input device (card reader or magnetic tape imit) 

• Output device (printer or magnetic tape unit) 

• Punch output unit (card punch or magnetic tape unit) 
Two magnetic tape scratch units 


Outputs that may be selected by the programmer include: 

• Relocatable binary cards or card images 

• Source program listing 

• Assembly language listing of machine instructions 

• Load-and-go object program for immediate execution 

Diagnostic messages are printed when the compiler detects coding errors. 
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1.3 

EXPRESSIONS 


1.4 

STATEMENTS 


An expression is a constant, variable (simple or subscripted), function, or 
any combination of these separated by operators and parentheses, written in 
compliance with the rules for constructing a particular type of expression. 

The four kinds of expressions in FORTRAN are: arithmetic and masking 
(Boolean) expressions, which have numerical values, and logical and relational 
expressions which have truth values. For each type of expression there is an 
associated group of operators and operands. 


The FORTRAN elements - expressions, operators, and operands - maybe 
combined to form two types of statements, executable and non-executable. An 
executable statement performs a calculation or directs control of the program; 
a non-executable statement provides the compiler with information regarding 
variable structure, array allocation, and storage-sharing requirements. A 
group of FORTRAN statements make up a source program. 

Statements can be divided into four classes: 

• Declarative 

• Replacement 

• Control 

• Input/Output 

Declarative statements permit a programmer to (a) define the mode of a vari¬ 
able as character, real, integer, or other; (b) enter data; (c) reserve storage 
common to more than one subprogram or main program; and (d) overlay the 
same storage locations with variables and arrays during program execution. 

Arithmetic replacement statements incorporate expressions for addition, 
subtraction, multiplication, division, and exponentiation. Logical replacement 
statements may include relational and logical operators. 

Control statements alter the sequence of program execution conditionally or 
unconditionally. 

Input/Output and encode/decode statements permit transfer of data from one 
storage location to another, or between computer storage and external equip¬ 
ments. Conversion and editing specifications provide diversity in input/output 
formats. 

Masking operations are available through the FORTRAN library routines; 
internal and external machine conditions may be tested by FORTRAN library 
functions. 
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1.5 

SOURCE 

PROGRAMS 


1.6 

CODING 


A source program consists of one main program and/or several subprograms; 
they may be compiled individually and run as single programs. 

The following chapters review characteristics of constants, variables, opera¬ 
tors, operands, and expressions; set forth rules and conditions for use of 
FORTRAN statements; and describe organization of source decks. 


Each FORTRAN program and subprogram is constructed of symbolic characters, 
identifiers, and operators arranged in statements to be punched on standard 80- 
column cards. Coding uses the following character set: 

Alphanumeric characters: 

letters A through Z 
numbers 0 through 9 

Special characters: 

A blank 

= equals 

+ plus 

minus 

* multiplication 

** exponentiation 

/ division or inter-record spacing 

( left parenthesis 

) right parenthesis 

, comma or separator 

decimal point 

$ delimits multiple statements written on same line 

Blanks may appear anywhere in a source statement. They are significant only 
in Hollerith constants or FORMAT specifications. 
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1.7 

CODING FORMS Coding is written on forms with the following format: 


Columns Content 


1- 5 
6 

7-72 

73-80 

or 

1 

2- 72 
73-80 


Statement label 

Continuation designator (non-zero character) 
Statements 

Identification and sequencing 

C - Comment designator 
Comments 

Identification and sequencing 


A line contains a string of up to 72 FORTRAN characters. The character 
positions m a line, columns, are numbered consecutively, 1 through 72, 


A C in column 1 identifies the line as a comment; comments are for the con¬ 
venience of the programmer and permit him to describe the program steps; 
they do not influence the program. A comment may be inserted at any point in 
the program. Comment cards are listed along with the source statements when 
the source list option is selected. 


Columns 1 through 5 may be blank or may contain a label that identifies the 
line for reference elsewhere in the program. A statement number (label) 
must be unique within a subprogram, and in the range 1 through 32767. 

A statement that is labeled and never referenced (a null) causes an informative 
diagnostic during compilation but does not inhibit execution of the compiled 
program. 

The compiler ignores blanks and leading zeros in statement numbers. 

Statements in the formats outlined in this manual appear in columns 7 through 
72. A statement that exceeds the 66 characters allowed on a single card may 
be continued on successive cards. 


The size of a source statement and, consequently, the number of allowable 
cards per statement are limited according to the equation: 

2n + m< 500 characters 
n = number of identifiers 
m = number of symbols and constants 
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This permits at least five cards (4 continuation cards) per statement with the 
worst case being 167 single-character identifiers and 164 operators. Continua¬ 
tion cards may not be labeled; columns 1 through 5 must be blank. A character 
other than zero in column 6 designates continuation. 

More than one statement may be written on a line (card) by using the $ to 
separate the statements, subject to the following rules: 

The statement following $ may not be labeled. 

The $ may not be used with FORMAT statements or continuations of 
FORMAT statements. 

A statement ends when the compiler reads a $ or a new record having column 6 
blank. 

The compiler does not interpret column 73 through 80. These columns are for 
sequencing or program identification. 


SAMPLE FORTRAN CARDS 


2 5 6 7 72 73 80 



Three statements are shown, one on each card. One is labeled; all three are 
sequenced. Because no statement is continued, column 6 is blank. 
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SAMPLE FORTRAN CODING FORM 


P . -5 | | 7 . 


12 

4 

16 

20 


PROGRAM BIGJOB 
DIMENSION DATA(800) 

SQUARE = 0. 

TOTAL = 0. 

NPLUS = 0 

NZERO = 0 

DO 20 I = 1, 800 

IF (DATA(I)) 4,16,12 

NPLUS = NPLUS + 1 

TOTAL = TOTAL + DATA(I) 

SQUARE = SQUARE+DATA(I)*DATA(I) 
GO TO 20 

NZERO = NZERO + 1 
CONTINUE 
B = NPLUS 


24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 


80 ^ 
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ELEMENTS OF FORTRAN 


2 


2.1 

CONSTANTS FORTEAN accepts four basic types of constants: integer, octal, real, and 

Hollerith. The type of a constant is determined by its form. Each real con¬ 
stant occupies two consecutive computer words (24 bits per computer word). 
Each of the other three types occupies only one computer word. 

If a constant exceeds the allowed range, the statement in which it is used is 
rejected during compilation and a diagnostic is provided. 


2.1.1 

23 23 

INTEGER An integer constant consists of up to 7 decimal digits in the range -2 <n<2 

(from -8,388,607 to 8,388,607). 

Examples: 63 -3141592 8388607 

247 3674631 -464646 

The structure of the translated constant is: 


S value 

2322 0 

S = 1; value is complemented (negative) 

0; value is uncomplemented (positive) 


2.1.2 

OCTAL An octal constant consists of up to 8 octal digits terminated by a B in the form 

n^ ... njB 

A minus sign before the octal number designates the seven's complement. 

Examples: OOB 23232323B 77777700B 

00077777B 77B -31314672B 
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The structure of the translated constant is: 


Oci 

OC2 

OC3 

OC4 

0C3 



00 

0 

0 


23 0 


Ocj is a 3-bit octal digit. 


2 . 1.3 

REAL 


A real constant is represented by a string of up to 11 digits in the range 
0 ^ n ^ 2^^-l. It may be expressed with a decimal point or with an exponent 
representing a power of ten or both in the forms: 

nE nE±s n. n. E±s 

n.n n.nE±s .n .nE±s 

s is the exponent to the base 10. The range of s is 0 through 308. The constant 
may be signed. The maximum value is . 68719476735E308. 

Examples: 3.1415768 -314. .0749162 

.31415E1 3459E05 31.41592E-01 

-.31415E+01 

Structure of translated constant: 


S = 1; fraction and biased exponent are complemented 
0 ; fraction and biased exponent are uncomplemented 


second vord 


Fraction 


23 0 


first word 


Biased 

Exponent 


Fraction 


23 22 


12 11 


2 . 1.4 

HOLLERITH A Hollerith constant is a string of characters of the form nHw; n is an unsigned 

decimal integer, 1 through 4, that represents the length of the field, w. Spaces 
are significant in the field. When n is less than 4, the word is left-justified 
with BCD blanks ( 6 O 3 ) filling the remainder of the word. When n is greater 
than 4, the statement is rejected and a diagnostic is provided. 
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2.2 

VARIABLES 


2.2.1 

SIMPLE VARIABLES 


An alternate form of a Hollerith constant is nRw. When n is less than 4, the 
computer word is right-justified with zero fill. When n is greater than 4, the 
statement is rejected and a diagnostic is provided. 

Examples: 2HOK 3HSUM 3ROUT 

4HERGO 4R3600 IH) 

Structure of translated word: 


Ch;|^ 

Ch2 

Ch3 

Ch4 


23 0 


Chj is a 6-bit BCD character. 

A Hollerith constant occupies one computer word and is represented by internal 
BCD codes treated as integers. 


Variable names are alphanumeric identifiers that represent specific storage 
locations. 

The FORTRAN compiler recognizes simple and subscripted variable names. 

A simple variable name represents a single quantity; a subscripted variable 
name represents a single quantity within an array of quantities. The variable 
type is designated explicitly in a type declaration (Chapter 5) or implicitly by 
the first letter of the variable name. A first letter of I, J, K, L, M, or N 
indicates a fixed point (integer) variable; any other first letter indicates a 
floating point (real) variable. 


A simple variable name identifies the location in which a variable value can be 
stored. Any integer value in the range Ini S 2^^-l may be referenced by a 
simple integer variable name. 

Examples: N LOX M58 

K2S04 NOODGE M 58 

Because spaces are ignored in variable names, M58 and M 58 are identical. 
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2.2.2 

SUBSCRIPTED 

VARIABLES 


2 . 2.3 

SUBSCRIPT FORMS 


Any signed value from 10 
point variable. 


“308 308 

to 10 may be referenced by a simple floating 


Examples: VECTOR 

BAGELS 


A65302 

BATMAN 


An array is a block of successive memory locations comprising the elements 
of the array. Each element of an array is referenced by the array name plus 
a set of subscripts. The type of an array is determined by the array name or 
a type declaration. Arrays may have one, two, or three dimensions; the 
maximum number of array elements is the product of the dimensions. The 
maximum number of words used in an array cannot exceed 32767. The array 
name and its dimensions must be declared at the beginning of the program in 
a DIMENSION or COMMON statement. 


A subscript has one of the following forms; c and d are integer constants and 
I is a simple integer variable. 

(c*I±d) (I±d) (c*I) 

(I) (c) 

More than three subscripts cause a compiler diagnostic. Program errors may 
result if subscripts are larger than the dimensions initially declared for the 
array. A single subscript notation may also be used for a two- or three- 
dimensional array if it is the structural location of the variable. However, 
the elements of a sin^e-dimensioned array A(d 2 ) may not be referred to as 
A(I, J, K) or A(I, J), Diagnostics will occur if this is attempted. 

Examples: A(I, J) B(I+2, J+3, 2*K+1) Q(14) 

P(KLIM, J, LIM+5) SAM(J-6) A(133) 

B(l, 2, 3) A(233) 

At no time during program execution can a simple integer variable used as an 
index variable take on a value greater than 32767. 
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2 . 2.4 

ARRAY STRUCTURE 


Elements of an array are stored by column in ascending storage locations. 
Type real arrays require two storage locations for each array element; type 
character arrays, however, are stored 4 array elements per location. 

The location of an array element with respect to the first element is deter¬ 
mined by the maximum array dimensions and the type of the array. 

The first element of array A(I, J, K) is (1,1,1). The location of element 
A(i, j, k) with respect to A(1,1,1) is 

Loc A(i,j,k) = Loc A(l,l,l) +[(i-l)+(j-i)*i+(k-l)*I*j]*E 

The quantity in braces is the subscript expression. E is the element length 
(the number of storage locations required for each element of the array). For 
integer arrays, E = 1; for real arrays, E - 2; for character arrays, E = 1/4. 
Subscripts i, j,k may be any of the allowed subscript forms. 

Factoring the ejqpression produces 

a base address: S, the first word of A(1,1,1) 

a constant addend: -(1-I+I*J)*E 

an index function: (i+I*j+I*J*k) *E 

When i,j,k are other than simple variables, for example, c*I±d, constants 
such as d appear in the constant addend. 

Example: In the array declared as A(3,3,3): 
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The elements of this real array are stored two words per element starting 
with A(l, 1,1) in S, the lowest location reserved for the array. 


locations 


S, S+1 
&f2, S+3 
S+4, S+5 
S+ 6 , S+7 
S+ 8 , S+9 
S+10, S^ll 
Sfl2. S+13 


array element 
Ai, j,k 

^111 

A2II 

A311 

^121 

^221 

A 32 I 

^131 


S+48, &t"49 -^133 

S+50, S+51 A 233 

S+52, S+53 A 333 


Referring to the example, if Loc A (1,1,1)=S: the locations of A(2,2,3) with 
respect to A(1,1,1) are: 

Loc A(2,2,3) = Loc A(l,l,l) + [(2-l)+(2-l)*3+(3-l)*3*3] *2 - &f44, &f45 

The following relaxation on the representation of subscripted variables is per¬ 
missible: 

Given A(di, d 2 , d 3 ) d^ are integer constants 

then A(I, J, K) implies A(I, J, K) 

A (I, J) implies A (I, J, 1) 

A(I) implies A(1,1,1) 

A implies A (1,1,1) 

similarly, for A(dj^, d 2 ) 

A (I, J) implies A(I, J) 

A(I) implies A (1,1) 

A implies A(1,1) 

and for A(dj^) 

A implies A(l) 



EXPRESSIONS 


3 


3.1 

ARITHMETIC 

EXPRESSIONS 


An expression can be a constant, a simple or subscripted variable, a function, 
or any combination of these separated by operators and parentheses. It can 
contain non-standard and mixed modes of arithmetic; however, when non¬ 
standard or mixed modes are used, special rules apply to operators. Non¬ 
standard arithmetic requires that the programmer add special COMPASS 
routines to the FORTRAN library. 


The following operators are used in arithmetic expressions: 

Function 

addition 
subtraction 
multiplication 
division 
exponentiation 

Constants 

Variables (simple or subscripted) 
Functions 

Examples: A 

3.141592 

B+16.8946 

(A-B(I,J+2)) 

G*C(J)+4.1/(Z(J, 3*K))*SINF(V) 


Symbol 


* 

/ 

Arithmetic elements are: 
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Rules: 


1 . In an arithmetic e 33 )ression do not use adjacent arithmetic operators; 

X op op Y; or adjacent arithmetic elements; A(B+C)D. 

2. If X is an esqjression, then PQ, ((X)), et cetera, are expressions. 

3. If X, Y are expressions, the following are expressions: 

X + Y X/Y 

X - Y X * Y 

4. Expressions of the form X**Y and X**(-Y) are legitimate, subject to the 
restrictions in section 4. 2, rule 4. 

5. There is no implied multiplication. 

X(Y) does not imply X*(Y) 

Constant (X) does not imply constant *(X). 


3 . 1.1 

ORDER OF 
EVALUATION 


The hierarchy of arithmetic operations is: 

** exponentiation class 1 

/ division I 

* multiplication j 

+ addition ) 

> class 3 

subtraction ) 

In an expression with no parentheses or within a pair of parentheses, in which 
unlike classes of operators appear, evaluation proceeds from left to right. 

The first operator of such an expression is compared against the second. If 
the first operator takes precedence over the second, the operation is scheduled 
for execution. If the second operator takes precedence over the first, or is 
equal to the first, the first operation is delayed and the second operator is 
compared against the third. 
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Example: 


(A+B*C**D) 

+ < * A+B delayed 

* < ** B*C delayed 

** last operator 

C**D scheduled for execution 

R indicates an intermediate result, not necessarily a temporary storage. 

The operations that were delayed are then scheduled for execution in 
reverse order: 

B*Rj^-^ R2 

A+R2 R3 

If an expression contains consecutive operations involving operators of like 
class (A+B+C, A*D*F, A-B+C), the left to right evaluation is modified. (This 
does not apply for A*B/C, A/B*C, A/B/C, or A**B**C.) The first operation, 
plus subsequent operations, will be delayed until the end of the statement is 
reached or an operator of unlike class is encountered. 

Examples: 

(A+B+C+D+E+F) 

(R+S+T-U-V-W) 

(A+B-C-mE*R) 

When the end of the statement is reached, the delayed operations are scheduled 
for execution in reverse order and the final expression is the last to be executed. 

Examples: 

{A+i B+ 2 C+ 3 D+ 4 E+ 5 F) 
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order established by scan 


evaluation 


+1 - +2 

A + B delayed 

D + E ^Ri 

+2 “ ■*'3 

B + C delayed 

C + Ri -^R2 

■'■3 = +4 

C + D delayed 

B + R 2 -> R 3 

■'■4 = ■'■5 

D + E delayed 

A + R 3 R 4 

+5 


R 4 + F-^Rg 

If an unlike operator of greater precedence is encountered withiu a sequence of 
like operators (A+^B+ 2 C*D+gE+^F), the evaluation will proceed as follows: 


order established by scan 

evaluation 

+1 = +2 

A + B delayed 

C * D-^R^ 

+2 < * 

B + C delayed 

B + R^ R 2 

* > +3 

C * D scheduled for execution 

A + R 2 ~^ II 3 

+3 = +2 

B + C scheduled for execution 

Rg + E 

+3 = +1 

A + B scheduled for execution 

R^ + F^Rg 

+ 

CO 

II 

+ 

D + E delayed 


+4 last operator D + E scheduled 



E + F scheduled 


If the unlike operator is of less precedence the evaluation will be as follows: 


2 C+D* 3 E* 4 F) 



order established by scan 

evaluation 

♦ —4^ 

1 2 

A * B delayed 

A * B ->R^ 

*2 > + 

A * B scheduled for execution 

R^ * C ->R 2 

*l > + 

B * C scheduled for execution 

D * E -> R 3 


C + D delayed 

R 3 * F->R 4 

*3 = *4 

D * E delayed 

R 4 + R 2 R 5 


last operator D * E scheduled for execution 
C + D remains delayed 
E * F scheduled for execution 
C + D scheduled for execution 



An expression of the form (A+B+C*D*E**F+G+H) would be evaluated in the 
following manner: 



order established by scan 

evaluation 

+1 = +2 


A + B delayed 

E ** F-^Rl 

+2 < *1 


B + C delayed 

D * Ri^R2 

*1 = *2 


C * D delayed 

C * R 2 -^R 3 

*2 < ** 


D * E delayed 

B + R 3 -^R 4 



E ** F scheduled for execution 

A + R 4 -^R 5 

*2 > +3 


D * E scheduled for execution 

R5 + G-5^Re 

*1 > +3 


C * D scheduled for execution 

R0 + H->"R 7 

+2 = +3 


B + C scheduled for execution 


- 1 —1 iz: * 4-0 

1 0 


A + B scheduled for execution 


+3 = +4 


-L 


+4 last operator 



+ 

II 

+ 

CO 


F + G scheduled for execution 




G + H scheduled for execu. Lon 



The use of additional parentheses will alter the order of evaluation and will 
greatly affect the results when working with mixed mode. 

In parenthetical expressions within parenthetical expressions, evaluation begins 
with the innermost expression; they are evaluated as encountered in the left to 
right scanning process. 

Examples: 

hi the following examples, R indicates an intermediate result in evaluation: 

1. A**B/C+D*E*F-G is evaluated: 

A ** B 

Rj^/C "^R2 
D * E ^ R 3 
R 3 * F ->R 4 
R 4 + R 2 R 5 
R 5 - G ^R 0 
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2. A**B/ (C+D)’'^(E*F-G) is evaluated: 

A ** B ^Ri 
C + D ^R2 
R 1 /R 2 
E * F -^R4 
R4 “ G —>■ Rg 
R3 * R5 ^Re 

3 . When the expression contains a function, the function is treated as a 
parenthetical expression. 

H(13)+C(I, J+2)*(COSF{Z))**2 is evaluated: 

COSF(Z) ->Ri 
Rl ** 2 ->R 2 
R 2 *C(I,J+2) ^Rg 
Rg + H(13)^R4 

Examples 4 and 5 are examples of expressions with embedded parentheses. 

4. A*(B+((C/D)-E)) is evaluated: 

Rj^ “ E -^Rg 
Rg B —^Rg 
Rg * A -^R4 

5. A*(SINF(X)+1.)-Z/ (C*(D-(E+F))) is evaluated: 

SINF(X) ^Ri 
Rj + 1 . ~>‘R 2 
R2 * A -^Rg 
E + F-^R4 
-R4 ->'R4 
R4 + D ->-Rcj 
R 5 * C -^Rq 
-Z/R0 -^Rj 

R7 R3 “^Rs 
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3.1.2 

TYPE REAL 
ARITHMETIC 


3.1.3 

TYPE INTEGER 
ARITHMETIC 


3.1.4 

TYPE CHARACTER 
ARITHMETIC 


3.2 

MIXED-MODE 

ARITHMETIC 


Expressions containing only type real constants and variables accept all stand¬ 
ard operators and require no special rules. 


Integer expressions are processed from left to right and modified by delayed 
operations. Also, dividing an integer quantity by an integer quantity yields a 
truncated result; thus 11/3 = 3. The expression I*j/K may yield a result 
different from the expression I*(J/K). 

4*3 4*3 

I*J/K = — = 6 I*(J/K) = —=4 


FORTRAN includes routines that load, store, complement, add, and subtract 
CHARACTER constants and variables. Routines in COMPASS language may be 
supplied by the user. Characters dimensioned in an array are assigned four 
to a computer word. Simple variables are assigned one storage location per 
variable in the upper 6 bits (18 to 23) of the computer word. The compiler 
generates code which performs CHARACTER arithmetic in the lower 6 bits of 
the arithmetic registers and stores as the result the lower 6 bits of the A 
register. 

Example: 


1 5 

y B—8 

12. 

00 

00 

00 


CHARACTER B, C, RESET C=9 

RESET = B+C RESET=A 

H 

00 

00 

00 


00 

00 

00 




For character arithmetic, simple character values are used as 6-bit integer 
quantities, right justified. The result, the lower 6 bits of the A-register, is 
stored in the high order 6 bits of the computed variable. 


Arithmetic expressions can contain mixed types of constants and variables. 
Mixed-mode arithmetic is accomplished through the special library conversion 
subroutines (Appendix C). 
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The three standard operand types are real, integer, and character. The 
programmer may define one non-standard type per subprogram. Type declara¬ 
tions are covered in Chapter 5. 

The following rules establish the relationship between the type of an evaluated 
ejqjression and the types of the operands it contains. 

Rules: 

1. The order of dominance of the operand types within an expression 
from highest to lowest is: 

Non-standard 

Real 

Integer 

Character 

2. The dominant operand type determines the type of an evaluated arith¬ 
metic expression. 

3. A non-standard type may be mixed with any or all of the standard 
types. 

4. In expressions of the form A**B, the following rules apply: 

. When A or B is type other or character, the user must provide 
the conversion routines. 

. For the standard types the mode/tjre relationships arc: 


Type 

Type\^A 

B 

Character 

Integer 

Real 

Character 

Character 

Integer 

Real 

Integer 

Integer 

Integer 

Real 

Real 

Real 

Real 

Real 


For example, when A is real and B is integer, the mode of A**B is real. 

In mixed mode arithmetic, the mode used to evaluate any portion of an expres¬ 
sion is determined by the dominant type thus far encountered within the 
expression and the normal hierarchy of arithmetic operations; integer, mode 
will be used when an integer type is first encountered and will be converted to 
real mode when a real type is encountered. 
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Examples: 


1. Given A, B type real; I, J type integer. The mode of evaluating the 
expression (A*B-I+J) will be real because the dominant operand is 
type real. It is evaluated: 

A * B -^Ri real 

Convert I to real 

R^ - I-^R 2 real 

Convert J to real 

R 2 + J ->R 3 real 

2= The use of parentheses can change the evaluation. A, B, I, J are 
defined as above. (A*B-(I-J)) is evaluated: 

A * B real 

I - J -> R 2 integer 

Convert R 2 to real 

R^ - R 2 ->113 real 

3. Given C, D tjre character and I type integer, the mode of evaluating 
expression (C-D+I) is integer. 

C - D -^Rj^ character 

Convert R]^ to integer 

Rl + I-^ R 2 integer 

4. In the expression (I+C-D) variables C, D are character; I is integer. 
Evaluation proceeds: 

Convert C to integer 

I + C ->R 2 integer 

Convert D to integer 

Rl - D -»R 2 integer 

When an operation is to be performed on operands of different modes, conver¬ 
sion is implemented during the normal evaluation. When integer and real 
modes are mixed, FORTRAN will perform the conversion and the operation for: 

add divide 

subtract exponentiate 

multiply store 
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The generated calls and their descriptions are contained in Appendix C. 


When integer and character, or real and character modes are mixed, FORTEAN 
generates code that performs the conversion and operation for: 

add load 

subtract complement 

store 

If other operations (multiply, divide, exponentiate) are to be performed, the 
necessary conversion routines must be supplied by the user (Appendix C). 

For mixed integer and character, the add and subtract routines are imple¬ 
mented during the evaluation, and no reference is made to external routines. 


3.3 

LOGICAL 

EXPRESSIONS 


A logical expression has the general form 
r^ op r 2 op 

in which rj are simple variables, arithmetic expressions, or relational 
expressions; and op is either the logical operator .AND. indicating conjunction 
or . OR. indicating disjunction. 

The value of a logical expression is either true (1) or false (0). 

Logical ej(pressions are generally used in logical IF statements (section 6. 2). 
Rules: 

1. Precede and follow logical operators .AND. and .OR. with either a 
relational or an arithmetic expression. 

2. Precede . NOT. only with . OR., . AND. or the beginning of the 
expression. 

r^^ .AND. .NOT. r2 
r^ .AND. r2 
.NOT. r^ 

r^ . OR. r2 . AND. r^ 

3. If op is either .AND. or . OR. do not use a logical expression of the 
form r^j^ op op r 2 . 
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4. Do not enclose logical operators within parentheses. 

5. Do not nest logical expressions. 

6. Each logical operator applies to the relational expression up to the 
next logical operator or to the end of the logical expression, except in 
an expression of the form: 

r . AND. . NOT. r . OR. r 

i. u O 

. NOT. refers to 

.AND. refers to .NOT. rg 

. OR. refers to r^ 

7. . NOT, may appear in combination with .AND. or . OR. only as follows: 

.AND. .NOT. 

. OR. . NOT- ri 

-- “ ’ J. 

8. Logical statements are evaluated from left to right. 

9. The logical operators are defined as follows: 

. NOT. r^^ is false if r^ is true 
r^ . AND. r 2 is true only if Vi and r 2 are true 
r]^ . OR. r 2 is false only if r^ and r 2 are false 

Examples: 

1) R = A .OR. B .OR. C .OR. D .AND. E .AND. F .AND. G 

R = D .AND. E .AND. F .AND. G .OR. A .OR. B .OR. C . OR. D 

These two statements provide the same results, but the first process may be 
faster since the truth value of A, B, or C eliminates the need for evaluating 
D, E, F, and G. 

2) FORTRAN does not permit the form R = . NOT. (. NOT. (. NOT. (A. AND. B) 
.AND. C) .OR. .NOT. (B.AND. C.OR.A)). The same results may be 
obtained, however, by one of the following methods: 

The example may be reduced using the rules of Boolean logic, to: 

R = . NOT. A . AND. B . AND. C . OR. A . AND. . NOT. B . AND. C 
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The single statement may be replaced with a series of statements 
representing the nested groups: 


X = A.AND.B 
X = .NOT.X.AND.C 
R = B.AND.C.OR. A 
R = . NOT.X. OR.. NOT. R 
R = . NOT. R 


3.4 

RELATIONAL 

EXPRESSIONS A relational expression has the form: 

qi op q 2 

The q's are arithmetic expressions; op is an operator belonging to the set: 


Operator 

Meaning 

.EQ. 

Equal to 

.NE. 

Not equal to 

.GT. 

Greater than 

.GE. 

Greater than or equal to 

. LT. 

Less than 

. LE. 

Less than or equal to 


A relation is true if q^ and q 2 satisfy the relation specified by op. A relation 
is false if qj^ and q 2 do not satisfy the relation specified by op. 

Relations are evaluated as illustrated in the relation, p . EQ. q. This is 
equivalent to the question, does p-q = 0 ? 

The difference is computed and tested for zero. If the difference is zero, the 
relation is true. If the difference is not zero, the relation is false. Relational 
expressions are converted internally to arithmetic expressions according to 
the rules of mixed mode arithmetic. These expressions are evaluated and 
compared with zero to determine the truth value of the corresponding relational 
expression. 
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Rules: 


1. Use a relational operator between two arithmetic expressions. 

2. In a relational expression, do not use more than two arithmetic 
expressions connected by a single relational operator; op q 2 op q 3 
is not allowed. 

3. Separate two relational expressions with a logical connector, .AND. 
or . OR., in the forms: 

Land. / 

qi0pq2 j^oR. [ ^2opq3 

{ .AND. ) 

qi op ^2 I ^ OR. [ ^3 ^4 

4. An arithmetic expression, by itself, is a relational expression. It is 
considered TRUE if the resultant value is non-zero. 

5. The following relational expressions are equivalent. 

qi op q2 
qi op {q 2 ) 

(qi) op (q 2 ) 

(qi) op q 2 

6. Do not enclose relational operators with parentheses. 

7. Do not nest relational expressions. 
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Examples: 


Simple relational expressions 
A .GT. 16. 

(D-Q(I)*Z).LE. 3.141592 
(B+C).LT. (A-D) 


Evaluation of expressions 


1) A*B .GT. 16..AND. C.EQ. 3.141519 
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2) A(I) . GT. 0 . OE. B(J) . LT. 0 



3) L2 . OR. . NOT. L3 






3.5 

MASKING 

FUNCTIONS 


4) L2 .OR. .NOT. L3 .AND. .NOT. L6 .OR. L5 



Masking expressions are formed with the aid of system library functions. 
Masking operations are performed bit-by-bit on the actual parameters of the 
function reference. The parameters may be constants, variables, functions, 
or expressions of integer type. 

Although names of masking functions are nearly identical in appearance to 
logical operators, their meanings are different. 

The masking functions listed below may be referred to in any expression. The 
resulting value is supplied in an expression wherever the masking function and 
arguments appear. 

NOT (a) Form in the accumulator the complement of the integer 

operand. 

AND (a, b) Form in the accumulator the bit-by-bit logical product of 
the integer operands. 
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OR (a,b) Form in the accumulator the inclusive OR of the integer 

operands. 

FOR (a,b) Form m the accumulator the exclusive OR of the integer 
operands. 

Scanning of the expression is left to right and masking functions in expressions 
are evaluated as they are encountered. 

Operations performed by the functions: 


a 

b 

NOT (a) 

AND (a, b) 

OR (a, b) 

EOR (a, b) 

1 

1 

0 

1 

1 

0 

1 

0 

0 

0 

1 

1 

0 

1 

1 

0 

1 

1 

0 

0 

_1 

1 

0 

_1 

0 

0 


Examples: 


a = 77770000 
b = 77777777 
c - 00001763 
d = 20045000 
NOT (a) 

AND (a,d) 
OR (c,d) 
EOR (b,c) 


octal forms of integer values 


is 00007777 
is 20040000 
is 20045763 
is 77776014 
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REPLACEMENT STATEMENTS 


4 


4.1 

REPLACEMENT 

STATEMENT 


4.2 

MULTIPLE 

REPLACEMENT 

STATEMENT 


The general form of the arithmetic replacement statement is 
V = e 

e is an arithmetic, logical, or relational expression and v is any variable name, 
simple or subscripted. The operator = means that v is replaced by the value 
of expression e, with conversion for mode if necessary. 

Examples: 


■5- 7 

RESLT = X+Y-2. *R 
SUMX = X+Y+Z 

ARG(LAB) = 2. *X+C0MP**2 

SCEL = BIG .LE. SMALL 

TAB = .NOT. X .OR. Y .OR. Z .AND. A 

EE = AA.GE.BB.OR.CC.GE.DD 


The multiple replacement statement is an extension of the arithmetic replace¬ 
ment statement: 

% = ^n-1 = •.. = r 2 = ri = a 

a must be an arithmetic expression, rj are simple or subscripted variables 
and may be any of the standard or non-standard types. 

The multiple replacement statement indicates that each of the variables, 
ri ... rj^, will be replaced with the value of a in a manner analogous to that 
employed in mixed mode arithmetic statements. 
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Examples: 


1 5 

7 

1 5 

7 


I = R=4.6 

4.6 

4 — 


C= I = 123 

123 —I 

59 — 


1 ... 5 


7 



1= R= -14.6 

-14.6—»-R 
-14 -^1 


I integer 
R real 
C character 


The numbers in the examples 
represent the evaluations of 
expressions 


Example: 


Problem Convert radians to degrees and minutes 


Solution 

l 5 


I7 




DEGI=IDEG=DEG=BETA*57.296 
IMIN=(DEG-DEGI)*60 


BETA 

= 2.6 radians 

(real) 

DEG 

= 148.9696 degrees 

(real) 

IDEG 

= 148 degrees 

(integer) 

DEGI 

= 148.0000 degrees 

(real) 

IMIN 

= 58 minutes 

(integer) 


Result 2. 6 radians = 148 degrees 58 minutes 


4.3 

MIXED-MODE 

REPLACEMENT 

STATEMENT Although the type of an evaluated expression is determined by the tj^)© of the 

dominant operand, this does not restrict the types that identifier a may assume. 
The following chart shows the a to e relationship for all of the standard modes. 

Arithmetic Replacement Statement: a = e 
a is an identifier 

e is the evaluated arithmetic expression 



Type 

Typ^\^ e 
of a 

REAL 

INTEGER 

CHARACTER 

REAL 

Store e in a. 

Convert e to 
REAL. Store 
in a. 

Convert e to 

REAL and 

store in a. 

INTEGER 

Truncate e to 

an INTEGER. 
Store in a. 

Store e in a. 

e is stored as 
an INTEGER 

in a. 

CHARACTER 

Convert e to 

an INTEGER 
and store the 

6 low-order 
bits in a. 

Store the 6 
low-order 
bits of e in a. 

Store the 6 
low-order 
bits of e in a. 


Examples: 


1 5 


7 



CHARACTER C,D 

DIMENSION C(2) 

D = C(l)+C(2) 


C(l) and C(2) are added in character arithmetic. The low oixier 6 bits 
of the sum are stored as a character in D. 


1 5 


7 



CHARACTER C 

DIMENSION C(2) 

I = C^-C^ 


The expression (C 2 -C 1 ) is evaluated in character arithmetic. The 
result is converted to integer and stored in I. 


1 5 


7 



CHARACTER C 

DIMENSION C(3),I(3) 

J = I(l)-C(3)+I(3) 


The evaluated expression I(l)-C(3)+I(3) is integer (Section 3.2). 

Convert C(3) to integer 
1(1)-C (3) integer 

R2+I(3) R 2 integer 
J = R 2 integer 
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4 ) 


1_5_7_ 

CHARACTER D 
DIMENSION 1(2) 

D = I(1)*I(2) 

The expression (1(1)*1(2)) is evaluated in integer arithmetic. The 
low-order 6 bits of the result are stored as a single character in D. 


5 ) 

1 5 


7 




J = B(1)/B.(2)*(B(3)-B(4))+I(1)-(I(2)*B(5)) 


The expression is evaluated as follows 

B(3)-B(4)-^Rireal 
B( 2 )*Ri^R 2 real 
B( 1 )/R 2 ->-R 3 real 
Convert 1(2) to real 
I( 2 )*B( 5 )^R 4 real 
Convert 1(1) to real 
I( 1 )-R 4 -^Rs real 
R 3 +R 5 ->R 0 real 

The real value R 0 of the expression is converted to integer and 
stored as J. 


1 5 


L7 

n 



CHARACTER A, C 

C = A/B 


The compiler generates a call to an external subroutine (supplied by 
user) that divides character variable A, by real variable B. 

A/B->R 2 real 

The result is converted to an integer and the lower 6 bits of the 24-bit 
word are stored in C. 
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DECLARATIVE STATEMENTS 


5 


5.1 

TYPE STATEMENTS 


Declarative statements are non-executable statements that: 


Assign word structure to variables (TYPE) 

Reserve storage for arrays and single variables (DIMENSION, COMMON) 
Designate shared storage (COMMON, EQUIVALENCE) 

Assign initial values to variables (DATA) 

The declarative statements may be placed in any order prior to the first exe¬ 
cutable statement of a program or subprogram. 


Unless prestored with a DATA statement, each word of reserved storage 

XJLXJ.I/J.CU.J.^ V«>\^Xi.l^C3ULli.O Ct X^«A4XXi. JU.Xl.1^ t*V/ CU./XXV/X XXXC3U. XV/Cit^XXX^* X XXCP \^v./xxv«^xxvo <xx 


non-zero. 


A type statement designates the word structure of variable and function iden¬ 
tifiers. FORTRAN recognizes three standard types with fixed word sizes and 
one non-standard type, the word size of which is defined by the programmer. 
Special compiler routines supplied by the user translate all expressions con¬ 
taining non-standard variables. 


Type Declaration 

REAL list 
INTEGER list 
CHARACTER list 
TYPE other (w) list 


Word Storage 

2 words/element 
1 word/element 
6 bits/element 
w words/element 


List is a string of unsubscripted identifiers separated by commas. For 
example: A,B1, CAT, D36F, EUPHORIA 


The designator, other, is any alphanumeric identifier that identifies the non¬ 
standard type. The number of words per element for each non-standard 
variable in the list is specified by the integer w. 
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5.2 

DIMENSION 

STATEMENT 


Rules: 

1. Type declarations must appear with other declarative statements prior 
to the first executable statement in a program or subprogram. 

2. Unless declared, a variable is integer if the first character of its 
identifier is I, J, K, L, M, N and real if the first character is any 
other letter. 

3. Only one TYPE other is allowed in a subprogram; more cause diag¬ 
nostics. 

4. An identifier declared more than once assumes the highest type 
declared. 

TYPE other (highest) 

CHARACTER 

INTEGER 

REAL (lowest) 

5. An array identifier in list designates the entire array. 


Examples: 


REAL EL, CAMINO, REAL, IDE63 

integer quid, pro, quo 

CHARACTER ALPHA, BETA, GAMMA 
TYPE COMPLEX (4) AI47, K156 


The non-executable statements DIMENSION and COMMON reserve storage for 
arrays. A subscripted variable in an expression represents an element of an 
array of variables. 

DIMENSION v^ (s^, 82 , S 3 ), V 2 (S 4 ., S 5 , S 0 ),... 

An array name, Vj, has up to three imsigned integer subscripts,Sj, separated 
by commas. 
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The number of storage locations reserved for a given array is determined by 
the product of the subscripts in the subscript string, and the number of words 
per type. An array may occupy a maximum of 32, 767 words. 

DIMENSION statements must appear with other declarative statements prior to 
the first executable statement in the program. 

Example: 


1 5 


7 



REAL HERCULES 

CHARACTER BEAT 

DIMENSION HERCULES (10,20), BEAT (5,3) 


The array HERCULES has 200 elements. Two locations are used to store 
each real element; the number of locations reserved is 400. 

Character variables are dimensioned 4 characters per word in 6-bit elements, 
left to right, in each computer word. 

The 15 elements in the array BEAT occupy 4 sequential words: 


4 characters 


word 


word + 1 


word + 2 


1 

_ 

2 

3 

4 


5 

6 

7 

8 


9 

10 

11 

12 


13 

14 

15 



3 characters 


The label, BEAT, is 
equated to the 
location of the first 
character. 


The number of locations for an integer array equals the number of elements 
specified by the subscripts. 
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5.3 

COMMON 

STATEMENTS A program may be divided into independently compiled subprograms that use 

the same data. The COMMON statements reserve storage areas - numbered 
or labeled - that can be referenced by more than one subprogram. 


COMMON/DATA/list 

Assigns labeled common storage locations to variables and arrays designated 
in the list. Values in labeled common may be preset with a DATA statement. 


COMMON list 

Assigns numbered (blank) common locations to variables and arrays designated 
in the list. These may not be preset with data. 


Rules: 

1 = COMMON statements are placed with other declarative statements 
prior to the first executable statement in the program. 

2. The identifier, DATA, for labeled common is fixed; any other identi¬ 
fier causes a diagnostic. 

3. List is composed of subscripted or non-subscripted variable identifiers. 
If a non-subscripted array name appears in the list, the dimensions 
must be defined by a DIMENSION statement in the subprogram. Array 
names may be dimensioned by the COMMON statement. If dimen¬ 
sioned in both statements, those in the DIMENSION statement are used. 

4. Attempting to list an identifier in both labeled and numbered common 
doubly defines the variable, and causes a diagnostic. 

5. The order of identifiers in the COMMON statement determines their 
order in the common storage block. 

6 . At the beginning of program execution, the contents of numbered and 
labeled common (if not preset with a DATA statement) are undefined 
and non-zero. 

7. The type and quantity of identifiers determine the length of the common 
block. 

8 . A subprogram may re-arrange the allocation of storage locations in 
common. 
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9. A subprogram may not increase the length of a labeled common block 
assigned by the first program. However, it may use less common 
than the first program. 

10. When a subprogram does not need all of the locations reserved in 
common, dummy variables in the COMMON statement achieve cor¬ 
respondence of reserved areas. 


Examples: 

1) Labeled Common 

|j_ sNa_ 


COMMON/DATA/D(15),F(3,3) 
COMMON/DATA/DATA (io) 


The label DATA does not restrict use of "DATA" as an identifier. 


INTEGER Q, R 

COMMON/DATA/Q(4), R(4), S(2) 


origin 


Q(l) 

Q(2) 

Q(3) 

Q(4) 

HD 

R(2) 

R(3) 

R(4) 

S(l) 

S(l) 

S(2) 

S(3) 


Real variables each require 
two computer words. 


2) Numbered Common 


1 5 


7 






COMMON A,B(2),K 

COMMON 1(2),J(2) 
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origin 


A(l) 

A(l) 

B(l) 

B(l) 

B(2) 

B(2) 

K(l) 

1 ( 1 ) 

1 ( 2 ) 

J(l) 

J(2) 


3) Rearrangement of Common. 

MAIN PROGRAM 

I_5_7_ 

COMMON/DATA/C(20) 

The labeled common occupies 40 storage locations. 
SUBPROGRAM 


1 5 


7 



COMMON/DATA/A(10), 1(10), K(10) 


Labeled common is 40 storage locations. The first 20 locations (10 ele¬ 
ments of array A) of the block are real elements. Array I occupies the 
next 10 locations and array K the last 10 locations. 

4) Correspondence 

MAIN PROGRAM 


b .. .d 

7 


COMMON/DATA/A, B, C 


SUBPROGRAM 


1 5 

7 


COMMON/DATA/E, F, G 


Only the values of E and G are used in the subprogram; F is a dummy 
variable that spaces over the area iaitially reserved for B. 




5.4 

EQUIVALENCE 

STATEMENT 


The EQUIVALENCE statement permits storage locations to have several names, 

EQUIVALENCE (aj, bi, ...), (a2, bg, ...), ... 

(a^, bj, ...) defines equivalent groups of two or more identifiers. 

The first elements of arrays may be aligned by equivalencing the array names; 
elements of integer or real arrays may be aligned by equivalencing singly sub¬ 
scripted variables. Array lengths need not be equal. 

When element A(i, j,k) of array A (I, J, K) is to be aligned with an element in 
another array, the subscript, s, is determined by: 

s = i+(j-l)*I+(k-l)*I*J 

Example: 


i & 


( 



DIMENSION A(2,3,4),B(3) 

EQUIVALENCE (A(7),B) 


in which-A (7) represents element A(l, 1,2) of array A and aligns it with element 
B(l) of array B. 

1 A(1,1.1)=A(1) 

A(1.1,2) = A(7) = B(1) 
locMsl A(2.1,2) = A(8) = B(2) 
locpini A(1,2.2) = A(9) = B(3) 
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Rules: 


1. EQUIVALENCE statements must appear with other declarative state¬ 
ments prior to the first executable statement in the program or 
subprogram. 

2. No more than one element of an EQUIVALENCE set may belong to 
common. 

3. An identifier used as a formal parameter cannot also be used in an 
EQUIVALENCE statement. 

4. For CHARACTER and TYPE other, use only array names and simple 
(non-subscripted) variable names in EQUIVALENCE sets. 

5. EQUIVALENCE cannot re-arrange common. However, arrays may 
be equivalent so that they change the length of the common block. 

See example 2. 

6 . Attempting to change the origin of a common block causes a diagnostic. 
See example 3. 

7. An identifier may appear more than once in an EQUIVALENCE state¬ 
ment. See example 4. 

8 . An identifier in a COMMON statement used in an EQUIVALENCE set 
is the base identifier for the EQUIVALENCE statement. When none 
in the set belongs to common, the identifier with the lowest address 
becomes the base identifier. All other elements in the set are refer¬ 
enced to the base identifier. 

Examples: 

1) Align first elements of two arrays. 

I 5[ [7 _ 

DIMENSION A(10,10), 1(200) 

EQUIVALENCE (A,I) 

5 READ (K1,10)A 
61 READ (K1,20)I 

The EQUIVALENCE statement assigns the first half of the first element, 
of real array A and the first element of integer array I to the same storage 
location. The READ request at statement 5 directs that the values of 
array A be stored in consecutive locations. Before statement 6 is executed 
all operations using the values of array A must be complete. The values 
of array I will be read by statement 6 into the storage locations previously 
occupied by A. (For READ statements, refer to Section 10. 2.) 
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2) Change the length of common. 


COMMON A 

DIMENSION A(5), B(5) 
EQUIVALENCE (A(3),B(1) 


loc.P 

A1 


loc.P+2 

A2 


loc.P+4 

A3 

B1 


A4 

B2 


A5 

B3 



B4 



B5 


3) Illegal attempt to change origin of common. 


51 K 


COMMON I 

DIMENSION 1(5), R(3) 
EQUIVALENCE 1(2), R(2) 

loc, P II 

loc. P+1 12 

loc. P+2 13 

loc. P+3 14 

loc. P+4 15 


4) Multiple use of identifiers. 


i 5 


7 



EQUIVALENCE (A,B), (C,D), (E,F), (A,F), (B,D) 



interpreted as 


1 5 


7 



EQUIVALENCE (A,B,C,D,E,F) 



5.5 

DATA STATEMENT DATA statements permit variables in labeled common to accept constant values 
prior to program execution. 

DATA (i2^=list), (i2=list),... 

DATA (i(j,k,l)=list) 

DATA ((((i(I, J, K), I=ni, ng), J=mi, mg) K=Jei, JEgl^list) 

i is an identifier representing a simple variable, array name, or a variable 

with integer constant (i,j,k) or integer variable (I, J,K) subscripts. 

For implied DO loops, subscript I ranges from integer n^ to ng; subscript J 
ranges from m^ to mg, K ranges from to fg. 

List contains constants in the form: 

ai,ag,.. .r(bi,b2, ...)Ci,cg,... 

r is an integer constant repetition factor that causes the parenthetical list 
following it to be repeated r times. A non-integer r produces a compiler 
diagnostic. 

Rules: 

1. DATA statements must appear with other declarative statements prior 
to the first executable statement of the program or subprogram. 

2. Because only identifiers in labeled common may be preset, each 
identifier appearing in a DATA statement must also be in a labeled 
common statement. 

3. Implied DO-loop notation is permissible with the restriction that DO 
indexing parameter, mg (Section 6, 3), cannot appear. Implied DO 
loops are useful for storing constants in arrays. See example 1, 

When the number of list elements exceeds the range of the implied DO, 
a diagnostic is given and compilation of the DATA statement terminates. 
If the list is too short, the compiler gives a diagnostic but continues 
processing. 

4. A constant preceded by a minus sign is complemented during conver¬ 
sion. 

5. The structure of the constant rather than the type of the identifier 
determines the type of the stored constant. See examples 2, 3, and 4. 
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6. When CHARACTER variables are to be preset, each constant in the 
list fills one entire storage location. See example 5. 

7. Ideally, there should be a one-to-one correspondence between the 
identifier locations and list elements. An array name specifies the 
first element address. The entire array may be prestored. 

Examples: 

1) Implied DO loop 


1 5 


7 



COMMON/DATA/GIB 

DATA ((GIB(I),1=1,10)=!., 2., 3., 7(4.32)) 


Result: 


GIB 

contains 1. 

GIB+1 

tt 

2. 

GIB+2 

IT 

3. 

GIB+3 

11 

4.32 

GIB+4 

It 

4.32 

GIB+5 

TT 

4.32 

GIB+6 

ff 

4.32 

GIB+7 

TT 

4.32 

GIB+8 

TT 

4.32 

GIB+9 

TT 

4.32 


2) A storage location accepts any type of constant regardless of the type of 
the identifier. 


1 5 


7 



DATA (A=2) 


Result: Contents of the first word of real element A becomes an integer 
2 - not a real 2 as might be expected from the type of the iden¬ 
tifier. 


A = 


00000002 


. unchanged 


first word 


second word 







3 ) 


Store Hollerith constants in an integer array. 


1 5 


7 



COMMON/DATA/MESSAGE (3) 

DATA (MESSAGE = SHWHO, 2HIS, 4HJ0AN) 


Result: MESSAGE contains WHO a 
MESSAGE+1 " IS A A 
MESSAGE+2 " JOAN 


4) An erroneous attempt to store real constants in an integer array produces 
the results shown below. 


1 5 


7 



C OMMON/DATA/KILO (4) 

DATA(KILO = 2.6, 3.2E10) 


Result: 


KILO contains the upper half of 2. 6 in floating point 
KILO+1 contains the upper half of 3.2E10 in floating point 
KILO+2 contains the lower half of 3. 2E10 
KILO+3 is unchanged 


5) DATA constants fill entire, not partial, storage locations. Thus, 

CHARACTER data may be pre-set in labeled common but the values are 
not necessarily packed. The examples show the wrong and right ways to 
pack CHARACTER data. 


WRONG 


1 5 


7 



CHARACTER BOX 

COMMON/DATA/BOX (3,4) 

DATA(BOX = 3(1, 2, 3, 4)) 


Result: The constants 1, 2, 3, and 4 are repeated 3 times and stored in 
the low order 6 bits of 12 consecutive storage locations. Since 
BOX is dimensioned as 12 characters in 3 words, the results are 
erroneous. 
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RIGHT 


1 5 


7 



CHARACTER BOX 

COMMON/DATA/BOX (3,4) 
and 

DATA (BOX = 3(4H1234)) 
or 

DATA (BOX = 3(01020304B) 


Result: BOX contains 01 02 03 04 

BOX+1 " 01 02 03 04 

BOX+2 " 01 02 03 04 

6) Use extra care when presetting arrays with data. 


POOR 


1 5 


7 



C0MM0N/DATA/A(3) , X 

DATA (A = 1., 2., 3., 4.) 


Result: A contains 1. 

A+1 ” 2. 

A+2 " 3. 

X " 4. Contents of X are changed with or without the 

knowledge of the programmer. 

POOR 


1 5 


7 



COMMON/DATA/C(3) 

DATA(C=1., 2.) 


Result: C contains 1. 

C+1 ” 2. 

C+2 is left xmdefined. 
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CONTROL STATEMENTS 


6 


6,1 

GO TO 
STATEMENTS 


6 . 1.1 

UNCONDiTiONAL 
GO TO 


6.1.2 

COMPUTED GO TO 


Program execution normally proceeds from one statement to the next in the 
program. Control statements are used to alter the sequence or cause a number 
of iterations of a program section. 


GO TO statements transfer control within a program or subprogram. 


GO TO n 

Discontinues the current sequence of execution and resumes execution at the 
statement labeled n. 


GO TO (ni, n2 ,... , nj^), e 
GO TO (ni,n2,... ,njji)e 

Is a many-branch GO TO in which arithmetic expression e is evaluated prior 
to branching; nj are statement numbers. 

e is reduced to an integer value, j. If j < 1, n^ is execute next; if j >m, 
is executed next; otherwise, j = i, and nj is executed next. 
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Example: 


6.2 

IF STATEMENTS 


6 . 2.1 

THREE-WAY IF 



Control transfers to statement 10 and then to statement 31 (not shown). 


Two- and three-branch IF statements conditionally transfer control. 


IF (e) ni.ng.ng 

Control transfers according to the value of the arithmetic expression e. 

e < 0 statement n^ is executed next 

e = 0 statement n 2 is executed next 

e > 0 statement n 3 is executed next 

In the test for zero, 0 = -0. 

Examples: 


1 5 


7 



IF(A*B-C*SINF(X))10,10,2 0 

IF(I)5,6,7 

IF(A/B**2)3,6,6 
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6.2.2 

LOGICAL IF 


IF (£) ni,n2 


6.3 

DO STATEMENT 


Arithmetic, logical, or relational expression H is true (non-zero) or false 
(zero). If f is true, statement n^ is executed next; if H is false, statement n 2 
is executed next. 


Examples: 
l!_5117 


IF(A .GT. 16. .OR. I .EQ. 0)5,10 

IF(A .AND. B)l,2 

IF(C-D .LE. I>fE)4,6 

IF(X-Y)5,10 

IF (TCOUNT) 10,11 

IF (.NOT.A) 5,6 


The DO statement causes a predetermined sequence of instructions to be 
repeated a prescribed number of times, with the stepping of a simple integer 
variable after each iteration. 


DO n i = m]i, m 2 , m 3 


Groups of statements are repeated according to the value of simple integer 
variable i which increases after each repetition. The DO loop terminates at 
statement number n. Indexing parameters m^^ are unsigned integer constants 
or simple integer variables, i is initially set equal to m^; after each execution of 
the DO loop, m 3 is added to i. (When omitted, m 3 assumes a value of 1.) 

When i becomes greater than m 2 , the DO loop is satisfied. 

A DO loop is composed of the DO statement, terminating statement n, and any 
intermediate statements. The range of a DO loop includes all of the statements 
following the DO statement down to and including the statement that terminates 
the loop. Statement n cannot be an IF, GO TO, or DO statement. 
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Rules: 

1. Indexing parameters mj^ may be xmsigned integer constants or simple 
integer variables not greater than 32,767. 

2. Constant parameters must be positive; when m 3 is zero an informative 
diagnostic is given. 

3. When indexing parameters m^ and m 2 are variables, they may be 
positive, negative, or zero. Indexing parameter m 3 may be a variable 
but must be positive. 

4. When the values of m 2 and m 3 are changed during the execution of the 
DO loop an informative diagnostic is provided. 

5. i is initially equal to m^; as soon as i exceeds m 2 , looping terminates. 

6 . DO loops may be nested to a maximum of 10 deep. 


6 . 3.1 

DO LOOP EXECUTION The initial value of i, m^^, is compared with m 2 ; if it does not exceed m 2 , the 
loop is executed, i is increased by m 3 and again compared with m 2 . The 
process continues until i exceeds m 2 . Control then passes to the statement 
immediately following statement n, and the DO loop is satisfied. Should m^ 
exceed m 2 on the initial entry to the loop, the loop is not executed and control 
passes to the statement after n. 
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When the DO loop is satisfied, the index variable i is no longer defined. If a 
transfer out of the DO loop occurs before the DO is satisfied, the value of i is 
preserved and may be used in subsequent statements. 


6 . 3.2 

DO NESTS A DO loop containing another DO loop is a DO nest. The last statement of a 

nested DO loop must either be the same as the last statement of the outer DO 
loop or occur before it. Dj represent DO statements; the subscripts indicate 
that D^ appears before D 2 and D 2 appears before D 3 , et cetera, nj represent 
the corresponding limits of D^; njjj must not appear after nuj-l; ^^st not 
appear after n^^. 
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6 . 3.3 

DO LOOP TRANSFER 


6.4 

CONTINUE 

STATEMENT 


6.5 

PAUSE STATEMENT 


In a DO nest, control transfers from one DO loop into a DO loop containing it, 
or out of a DO nest completely. Leaving a nested DO loop and then returning 
to the nest is a special case. In a DO nest, when the range of i includes the 
range of j, and a transfer out of j occurs, control may transfer back into the 
range of i or j. 

In the following diagram, EXTR represents a portion of the program outside 
of the DO nest. 



CONTINUE 

Acts as a do-nothing instruction; control passes to the next sequential program 
statement. The CONTINUE statement is frequently used as the last statement 
of a DO loop to provide a loop termination when a GO TO or IF would normally 
be the last statement of the loop. 


PAUSE 
PAUSE n 

The PAUSE statement transfers control to a system or user-supplied subrou¬ 
tine; PAUSE n halts the computer with n (1 to 5 octal digits) displayed in the A 
register on the console. When the START key on the console is pressed, pro¬ 
gram execution proceeds with the statement immediately following PAUSE. 
PAUSE (n omitted) halts the computer with zeros displayed in the A register on 
the console. An n greater than 5 octal digits causes an informative diagnostic. 
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6.6 

STOP STATEMENT 


STOP 


STOP n 

STOP n halts the computer with n (1 to 5 octal) displayed in the A register on 
the console. When the STAKT key on the console is pressed, control transfers 
to the SCOPE monitor. STOP (n omitted) causes immediate exit to monitor. 

An n greater than 5 octal digits causes an informative diagnostic. 
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7,1 

MAIN 

PROGRAM AND 
SUBPROGRAMS 


7 . 1.1 

PROGRAM 

STATEMENT 


7.2 

SUBROUTINE 

SUBPROGRAMS 


FUNCTION AND SUBROUTINE SUBPROGRAMS 7 


A main program may be written with or without references to subprograms. 
Subprograms (functions and subroutines) are sets of instructions that may be 
written and compiled separately from the main program and may be referred 
to by the main program. 

The name of a function determines the type of the subprogram in the same way 
that names determine types of variables. Names of subroutine subprograms 
are not classified by type. A subroutine or function name must be unique within 
the subprogram, 

A calling program is a main program or subprogram that refers to subroutines 
and functions. 


hi each main program, the first statement must be of the following form where 
name is a 1- to 8-character alphanumeric identifier beginning with a letter. 

PROGRAM name 

PROGRAM name may be used only once in a main program, segment, or 
overlay. An overlay or segment requires use of PROGRAM name in an entry 
subprogram w’ritten in FORTRAN. 


A subroutine subprogram is composed of a set of FORTRAN statements, 
bounded by a SUBROUTINE statement and an END statement. A subroutine 
subprogram performs operations or calculations that may or may not return 
values to the calling program. 


Subroutine subprograms are compiled independently of the main program and 
may be compiled in a separate run. 


7 . 2.1 

SUBROUTINE 

STATEMENT 


A subroutine begins with the statement 


SUBROUTINE name 
or 

SUBROUTINE name , P 2 ,... p^) 

A subroutine name contains up to eight characters, the first of which is alpha¬ 
betic. The name must not appear in a declarative statement or within the 
subroutine subprogram. 

A subroutine statement can contain from 1 to 63 formal parameters, pj; they 
may be array names, non-subscripted variables, or names of other function 
or subroutine subprograms. Formal parameters must not appear in any of the 
following declarative statements within the subroutine subprogram: 

EXTERNAL 

COMMON 

DATA 

EQUIVALENCE 

A formal parameter representing an array, must be declared in a DIMENSION 
statement within the subroutine subprogram; otherwise, only the first element 
of the array is available to the subroutine subprogram. 


7 . 2.2 

CALL STATEMENT A reference to a subroutine is a call upon a computational or operational pro¬ 
cedure. No resultant value is identified or associated with the name of the 
subroutine. The subroutine subprogram returns values, if any, to the main 
program through formal parameters or common. The executable statement in 
the calling program for referring to a subroutine is: 

CALL name 

CALL name (P]^, P 2 . • • ■ P^) 


The CALL statement transfers control to the subroutine named. A RETURN 
or END statement in the subroutine subprogram returns control to the calling 
program. A called subroutine may not call the calling program or itself. 

The actual parameters, pj, of a subroutine call must agree in order, number 
1 to 63, and type with the formal parameters of the subroutine subprogram. 
The following forms are acceptable for actual parameters: 
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arithmetic expression 
constant 

variable, simple or subscripted 
array name 
function reference 
subroutine name 


Logical expressions may not be actual parameters. A function reference,used 
as an actual parameter, must also be used in an EXTERNAL statement in the 
calling program. 

When a subroutine is used with a parameter list, the subroutine name and its 
parameters must appear as separate actual parameters. 


Examples: 


SUBROUTINE ISHTAR (Y,Z) 
COMMON X(IOO) 

Z=0 

DO 5 1=1,100 
5 Z=Z+X(I) 

CALL Y 
RETURN 
END 


Calling Program Reference 


J_5_7_ 

COMMON A(100) 

EXTERNAL PRNTIT 

CALL ISHTAR (PRNTIT, SUM) 


The formal parameters, Y and Z, in the subroutine subprogram, are 
replaced by PRNTIT and SUM. CALL Y is a call to subroutine PRNTIT; 
PRNTIT must appear in an EXTERNAL statement for the compiler to 
recognize it as a subroutine name. 
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2) Subroutine Subprogram (Matrix Multiply) 


I_^ 


Id 


SUBROUTINE MATMULT 

COMMON/DATA/X(20,20),Y(20,20),Z(20,20) 

D010I=1,20 

D010J=1,20 

Z(I,J)=0 

D010K=1,20 

Z(I,J)=Z(I,J)+X(I,K)*Y(K,J) 

RETURN 

END 


Calling Program Reference 


7 


COMMON/DATA/A(20,20), B(20,20), C(20,20) 
CALL MATMULT 


3) Subroutine Subprogram 


1 5 


7 



SUBROUTINE BLVDLDR (A,B,W) 

W = 2.*B/A 

END 


Calling Program References 


CALL BLVDLDR 

CALL BLVDLDR 
CALL BLVDLDR 


(X(I), Y(I), W) 

(X(I)+H/2.,Y(I)+C(l)/2.,W) 
(X(I)+H,Y(I)+C(3),Z) 













7.3 

FUNCTION 

SUBPROGRAMS A function subprogram is composed of a set of FORTRAN statements, bounded 
by a FUNCTION statement and an END statement. A function subprogram 
calculates a single value used in evaluating an expression. 

Function subprograms are independently compiled of the main program and 
may be compiled in a separate run. 


7 . 3.1 

FUNCTION 

STATEMENT A function subprogram begins with the statement; 

FUNCTION name • • - Pn) 

A function name contains up to eight characters, the first of which is alphabetic. 
The type (real, integer) of the result of a function is determined by the name 
of the function. The type may be implicitly defined as real or integer by its 
name (Section 2.2) or it may be e3g)licitly defined by a TYPE statement 
(Section 5.1). 

The function name may not appear in any of the following declarative statements: 

DIMENSION 

COMMON 

EQUIVALENCE 

EXTERNAL 

DATA 

A function name must appear at least once within the function subprogram as 
one of the following: 

the lefthand identifier of a replacement statement 

an element of an input list 

an actual parameter of a subprogram call 

Formal parameters, Pj, may be array names, non-subscripted variables, and 
names of other function or subroutine subprograms. Within function subpro¬ 
grams, formal parameters must not appear in any of the following declarative 
statements: 

EXTERNAL 

COMMON 

DATA 

EQUIVALENCE 
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7 . 3.2 

FUNCTION 

REFERENCE 


A formal parameter representing an array must be declared in a DIMENSION 
statement within the function subprogram. Otherwise, only the first element 
of the array is available to the function subprogram. 

A function must have at least one parameter. 


A reference to a function is a call upon a computational procedure for the 
return of a single value. The value returned is identified by and associated 
with the function identifier. The form of the function reference is: 

name (Pi,P 2 ,.. -Pn) 

A function reference may be used in expressions in the same way as variable 
identifiers; name is the function name. 

The actual parameters, pj, in a function reference must agree in order, number 
(1 to 63), and type with the formal parameters of the function subprogram. 

Rules: 

1. The following forms for actual parameters are permissible: 

arithmetic expression 
constant 

variable, simple or subscripted 
array name 
function reference 
function or subroutine name 

2. Logical expressions are not allowed as actual parameters. 

3. When the name of a function subroutine appears as an actual parame¬ 
ter, the name must also appear in an EXTERNAL statement in the 
calling program. 
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Examples: 


1 ) Function Subprogram 


i 5 


7 



FUNCTION PHI (ALFA,PHI2) 

PHI=PHI2(ALFA) 

END 


Calling Program Reference 


^5 7 


EXTERNAL SINE 
C=D-PHI(Q(K),SINF) 

From its call in the main program, the formal parameter ALFA is 
replaced by Q(K), and the formal parameter PHI2 is replaced by SINF. 
PHI will be replaced by the sine of Q(K). 

2 ) Fimction Subprogram 


1 5 


7 



FUNCTION PSYCHE (A,B,X) 

CALL X 

PSYCHE = A/B*2.(A-B) 

END 


Function Subprogram Reference 


5| |7 


EXIERML EROS 


R=S-PSYCHE (TLIM,ULIM,EROS) 


hi the function subprogram, TLIM and ULIM replace A and B. The 
CALL X is a call to a subroutine named EROS. EROS appears in an 
EXTERNAL statement so that the compiler recognizes it as a subroutine 
name rather than a variable identifier. 
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3) Function with Subroutines as Parameters 


The subprograms are defined by statements: 

SUBROUTINE SQIRT(A, B) 

FUNCTION ZEBRA(X, Y, Z, XX) 
SUBROUTINE DONE(R,X, T, U, V) 


EXTERNAL SQIRT 

QX=ZEBRA (SQIRT, ARGl, ARG2, OK) 
CALL DONE(SQIRT,ONE,TWO,C,D) 


ARGl and ONE represent formal parameter A; ARG2 and TWO represent 
formal parameter B of SUBROUTINE SQIRT. 

4) Function subprogram 


1 5 


7 



FUNCTION AL(W,X,Y,Z) 

CALL W(X,Y,Z) 

AL=Z**4. 

RETURN 

END 


Function Subprogram Reference 


y_5L]7 


EXTERNAL SUM 


G = AL(SUM, E, V, H) 



7.4 

EXTERNAL 

STATEMENT 


7.5 

ENTRY STATEMENT 


When a CALL statement or function reference contains the name of a subroutine 
or function in its list of actual parameters, the name must be declared in an 
EXTERNAL statement in the form: 

EXTERNAL name]^, name2, ... namCj^ 

namoj^ is a function or subroutine name used as a parameter. 

The EXTERNAL statement must precede the first executable statement of any 
program in which it appears. 

Example: 

To make a function reference PHI(P 2 , P 2 ) in the statement C = D-PHI 
(Q (K), SINE): Function SINF is an actual parameter of the function PHI 
and must be declared in EXTERNAL statement. 


1 5 


7 



EXTERNAL SINF 


PHI, the function originally referenced, begins with the following state¬ 
ments: 


1 5 


7 



FUNCTION PHI(ALFA,PHI2) 

PHI=PHI2 (ALFA) 


Formal parameter ALFA takes the value Q(K); formal parameter PHI2 
calls for SINF. Thus, the function subprogram PHI calculates the sine of 
Q(K). 


ENTRY name 

Identifies an alternate entry point in a subprogram to be entered if the name 
of the entry point rather than the normal function name is referenced in a 
statement. ENTRY may not be labeled nor be within a DO loop. 
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7.6 

ENTRY CALL OR 
REFERENCE 


To enter a subprogram at the ENTRY statement, the name of the entry point is 
called (subroutine) or referenced (function) in the same way as a subroutine or 
function. 


ENTRY names must agree with the type of the function name when used in a 
function subprogram. 

The actual parameters with the ENTRY statement must agree in type and mode 
with the formal parameters in the FUNCTION or SUBROUTINE statement for 
the subprogram. 

Example: 

|i si I? 


I 45| |R=S+JAM(Q,2,*P) 

Subprogram execution would begin at ENTRY JAM in the subprogram. 



FUNCTION JOE(X,Y) 


10 J0E=X+Y 
RETURN 
ENTRY JAM 
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7.7 

return 

STATEMENT 


7.8 

END STATEMENT 


7.9 

PROGRAM 

ARRANGEMENT 


RETURN 

A subprogram normally contains one or more RETURN statements to indicate 
the end of logic flow witkm the subprogram and return control to the calling 
program. 

In function references, control returns to the statement containing the function. 
In subroutine subprograms, control, in most cases, returns to the calling 
program. A RETURN statement in the main program causes an exit to the 
monitor. 


END 

The END statement marks the physical end of a program, subroutine subpro¬ 
gram, or function subprogram. If the RETURN statement is omitted from a 
subprogram, END acts as a return to the calling program or function reference. 


FORTRAN compilation assumes that all statements and comments inserted 
between a PROGRAM, SUBROUTINE, or FUNCTION statement and an END 
statement belong to one program. Comments inserted between END and a 
SUBROUTINE or FUNCTION statement are associated with the preceding 
program. A blank card is required between subprograms and a FINIS card 
follows the last subprogram. 
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Example: 



FINIS 



LIBRARY SUBPROGRAMS 


8 


8.1 

SUBROUTINE 

LIBRARY 


8.2 

FUNCTION LIBRARY 


The FORTRAN library of subroutine 

Subroutine 

SLITE (i) 

SLITET (ij) 

SSWTCH (ij) 

DVCHK (i) 

EXFLT (i) 

OVERFL (i) 

EOFCK (i,j) 
lOCHK (i,j) 

UNITST (i,j) 

OVERLAY (o, s, i) 

SEGMENT (o, s, i) 

FORTDUMP (b,e,m,d) 


subprograms includes: 

Definition 

set sense light i 
test sense light i 
test sense switch i 
check divide fault 
check exponent fault 
check overflow fault 
test for end-of-file on unit i 
test for parity error on unit i 
test status of unit i 
load and execute overlay 
load and execute segment 
system dump routine 


Parameter i specifies the unit or component number and j specifies the location 
of the result. See Chapter 9, Machine Condition Subprograms- For Overlay 
and Segment, o specifies the overlay identification, and s the segment. 


The following FORTRAN library functions are pre-defined and may be refer¬ 
enced by any program or subprogram. X represents real values; I represents 
integer values. F is optional as a final character in most function names. 

For machine conditions, i designates the component or unit number. 
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Function 


Definition 


ABSpC); ABSF(X) 
lABS(I); XABSF(I) 

ALOG(X); LOGF(X) 

ATAN(X); ATANFPC) 

COSpC); COSF(X) 

EXPpC); EXPF(X) 

FLOAT(I); FLOATF(I) 
IFrX(X); XFIXFCX); FKFpC) 
SIGNpCi, X2); SIGNF(Xi, X2) 
ISIGN(Ii, I2); XSIGNF(l 3 ^, I2) 
SIN (X); SINF(X) 

SQRT (X); SQRTF (X) 

SLITEF (i) 

SLITETF (i) 

SSWTCHF (i) 

DVCHKF (i) 

EXFLTF (i) 

OVERFLF (i) 

EOFCKF (i) 
lOCHKF (i) 

UNITSTF (i) 

LENGTHF (i) 

NOT (a) \ 

AND (a,b) f 
OR (a, b) r 
EOR (a,b) / 


absolute value 

natural log of X 

arctangent of X radians 

cosine of X radians 

e to xth power 

integer to real conversion 

real to integer conversion 

sign of X 2 times Xi 

sign of I 2 times Ii 

sine of X radians 

square root of X 

set sense light i 

test sense light i 

test sense switch i 

check divide fault 

check exponent fault 

check overflow fault 

test for end-of-file on unit i 

test for parity error on unit i 

test status of unit i 

words in last BUFFER IN on unit 

integer masking functions 


The functions XABSF, LOGF, FDCF and XSIGNF must appear in a TYPE 
declaration to indicate the correct mode of the result. 



8.3 

OVERLAY AND 

SEGMENT With the library subroutines OVERLAY and SEGMENT, a FORTRAN source 

program can call from an overlay tape portions of a program too large for 
available storage. OVERLAY and SEGMENT do not partition a program or 
prepare an overlay tape. Each subprogram loads the called overlay or segment 
into storage and transfers control to the entry point address. 

For preparation of overlay tapes, refer to the 3200 SCOPE/COMPASS Refer¬ 
ence Manual, Publication No. 60057700. 

The overlay structure consists of a MAIN program and associated overlays 
and segments. The MAIN program can call OVERLAY to load a particular 
overlay; the overlay can call SEGMENT to load its associated segments. The 
main program resides in memory throughout the entire execution. 

A segment may reference subprograms (entry points) in its associated overlay 
or main program. An overlay may reference subprograms (entry points) in 

'•YKiin r\y*r\cry*CiYY\ 


When an error occurs during calling or loading overlays and segments, a 
diagnostic message is written and the job terminates abnormally. 

FORTRAN source subprograms use the following call statement to load and 
execute overlays and segments; 

CALL OVERLAY (o,s,i) 
or 

CALL SEGMENT (o,s,i) 

o, s, and i are integer constants or variables. All must be present. 

Their order is fixed, o and s may be 0 through 99. 

o overlay identification number for overlay and its segments 
s segment identification number; s = 0 for CALL OVERLAY 
i number of the logical unit on which overlay tape is mounted 

An overlay or segment is entered and left through a return jump instruction. 
Other exits may be taken to the calling program or main program but bookkeep¬ 
ing in the loader prevents loading of a new overlay or segment until an exit is 
made through the entry point of the overlay or segment. Therefore, an alter¬ 
native exit from an overlay or segment should be a CALL name statement 
(FORTRAN) or a return jump (COMPAS^ - either of which returns control to 
the calling segment or overlay. The called subprogram, if called by an over¬ 
lay may not call an overlay; if called by a segment, it may not call a segment. 
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CALL OVERLAY appears only in the main program, hi an overlay, CALL 
SEGMENT calls segments belonging to the overlay. In the main program, use 
of CALL SEGMENT applies only in the special case in which an overlay has 
called the main program. Execution may then proceed from main program to 
overlay to segment. The segment called from the main program must belong 
to the overlay that called the main program. 

Example: 

1) Main Program 


PROGRAM MAIN 

CALL OVERLAY (3,0,25) 


FORTRAN OVERLAY 3 on Logical Unit 25 

I 5[ [7 

PROGRAM OVRLY 

CALL segment (3,16,25) 

CALL SEGMENT (3,12,25) 

RETURN 


Program MAIN calls OVRLY (Overlay 3 of logical unit 25). OVERLAY 
loads OVRLY and transfers control to it. In OVRLY are calls for segments 
of Overlay 3, Segment 16 is called, loaded and executed. Not until after 
it returns control to OVRLY can Segment 12 be called, loaded and executed. 
When execution of OVRLY is completed, control returns to program MAIN. 
Until OVRLY returns control to MAIN, a second overlay cannot be called. 




Special case in which main program can properly call a segment. 


o\ 


MAIN PROGRAM 


PROGRAM MAIN 

CALL OVERLAY (3,0,25) 

SUBROUTINE PLUS (A,X,K) 

CALL SEGMENT (3,4,25) 
RETURN 


FORTRAN OVERLAY 3 on Logical Unit 25 

|i sj I? _ 

PROGRAM OVRLY 

CALL*PLUS (ALPHAI, BABYI, LINKI) 

CALL SEGMENT (3,16,25) 

RETURN 


Program MAIN calls OVRLY which is loaded and executed. In OVRLY is 
a call to PLUS, a subprogram of MAIN, (Overlays and segments can 
reference entry points of the main program.) Because it was called by 
Overlay 3, PLUS can call any segments of Overlay 3. In this example, 
PLUS calls Segment 4 of Overlay 3. After Segment 4 is executed, control 
returns to PLUS which may then call another segment or return control to 
OVERLAY 3 (OVRLY). OVRLY, when it resumes control may call seg¬ 
ments of Overlay 3, subprograms, or may return control to MAIN. When 
MAIN resumes control, it may call another overlay. 
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3) A segment incorrectly attempting to call another segment. 

In example 2, OVRLY called Segment 16 of Overlay 3, Segment 16 cannot 
appear as shown below: 

FORTRAN SEGMENT 16 of OVERLAY 3 


PROGRAM SGMNT 

CALL PLUS (ALPHA, BABY, LINK) 
RETURN 


In SGMNT is a call to subprogram PLUS. In PLUS, the call for Segment 4 
of Overlay 3 cannot be honored because a segment is calling another seg¬ 
ment. A diagnostic occurs. 


8.4 

FORTRAN DUMP The FORTDUMP subroutine permits a programmer to request a printout of the 
contents of variables m octal, character, or decimal floating point. 

Each time it is called, the routine prints, on the standard output unit, a line 
containing (1) dump identification, (2) the COMPASS address of the calling 
sequence, and (3) contents of the A and Q registers, the three index registers, 
and the interrupt mask register. When the register file option is elected, 
FORTDUMP prints REGISTER FILE followed by the contents of all 64 high¬ 
speed registers. 

The memory dump consists of 8-word lines of data printed in the designated 
mode and preceded by the absolute octal address of the first word on the line. 
When FORTDUMP detects a line that contains words all identical to the last 
word of the preceding line, the line is suppressed. The suppressed line or 
lines are noted with the word GAP on the listing. 

To call FORTDUMP, use the statement 

CALL FORTDUMP(b,e,m,d) 

b = simple or subscripted variable identifier of first word to be dumped 

e = simple or subscripted variable identifier of last word to be dumped 

m = mode; an octal constant or a variable identifier for location of the octal 
constant 


8-6 



Octal Constant 


Mode 


1 

2 

3 

4 

5 

6 
7 


Octal 

Character 

Floating point 

Register file 

Octal; register file 

Character; register file 

Floating point; register file 


d = Hollerith or octal (internal BCD) constant, or the variable identifier 
giving the location of 4 BCD characters that identify the dump 


Rules: 

1. To prevent excessive printout, avoid calling FORTDUMP within a loop. 

2. A first word address (b) greater than the last woird address (e) pro¬ 
duces a diagnostic message on the printout. 

3. When character or octal modes are used for type REAL variables, 
only the upper half of the last word will be printed. 

4. Floating point mode for REAL variables converts two words of memory 
at a time to decimal output in the form 

-• xxxxxxxxxx-eee 


Examples: 

1 ) 


1 5 


7 



MODE = 1 

IDENT = 3HK+1 

CALL FORTDUMP (MATRIX,MATRIX(16),MODE,IDENT) 


MATRIX 

contains 41 

MATRIX+6 

contains 47 

MATRIX+1 

TT 

42 

MATRIX+7 

” 0 

MATRIX+2 

Tf 

43 

MATRIX+8 

” 0 

MATRIX+3 


44 

. 

. 

MATRIX+4 

rr 

45 

’ 


MATRJX+5 

TT 

46 

MATRIX+15 

” 0 
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Result: 


K+1 LOG 77625 A 42200160 Q 00000000 B1 00000 B2 77562 B3 00144 IMR 0017 
OCTAL MEMORY 

77324 00000051 00000052 00000053 00000054 00000055 00000056 00000057 00000000 

GAP 

*END* 


2 ) 


COMMON (A,B,C,D) 

CALL FORTDUMP (A,D,7,4HK+12) 


A contains -6,75432 

B " 354.0000 

C " .01 

D " 6.754 El 

Result: 

K+12 LOG 77663 A 42017600 Q 00000023 Bl 06734 B2 00144 B3 00000 IMR 2020 
REGISTER FILE 


00000 

xxxxxxxx xxxxxxxx 

xxxxxxxx xxxxxxxx 

xxxxxxxx xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

00070 xxxxxxxx xxxxxxxx 
FLOATING POINT MEMORY 

xxxxxxxx xxxxxxxx 

xxxxxxxx xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

77470 

-.6754320000 001 

,3540000000 003 
*END* 

.1000000000=001 

6754000000 

002 
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8.5 

MACHINE 

CONDITION 

SUBPROGRAMS 


8 . 5.1 

SENSE LIGHT 
CONTROL 


8 . 5.2 

SENSE LIGHT TEST 


Library functions and subroutines exist in FORTRAN that will test and modify 
sense lights, switches, and fault conditions. Most machine conditions may be 
tested or modified by either a subroutine or a function subprogram. The two 
m-ethods differ primarily in the way a resulting value (if any) is stored for use 
by the program. The parameters must be of type integer. A subroutine is 
referenced with a CALL statement: 


1 5 


7 



CALL SSWTCH (I,J) 


A function is referenced the same as other library functions. 


1 5 


7 



GO TO (10, 20) SS¥TCHF(I) 


Each function reference has at least one parameter even though it is not always 
used; DVCHKF, EXFLTF, and OVERFLF do not use input parameters. 


subroutine SLITE (i) 
function SLITE F (i) 

For i equals 1 through 24, either subprogram turns on sense light i. For i 
equals zero, the subprogram turns oR all sense lights. For i other than 0 
through 24, the subprogram provides a diagnostic. Neither subprogram re¬ 
turns results to the caller. 


subroutine SLITET (i,j) 
function SLITETF (i) 

For i equals 1 through 24, either subprogram tests sense light i. If sense 
light i is on, the subroutine or function turns it off. The subroutine then stores 
a one in variable j; the function returns a one (in the A register) to the refer¬ 
encing statement. If sense light i is off, a two is stored or returned. 

For i other than 1 through 24, the subprogram provides a diagnostic. 
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8 . 5.3 

SENSE SWITCH TEST 


8 . 5.4 

DIVIDE FAULT CHECK 


8 . 5.5 

EXPONENT FAULT 
TEST 


8 . 5.6 

OVERFLOW TEST 


subroutine SSWTCH (i,j) 
function SSWTCHF (i) 

i may be 1 through 6 representing one of the 6 console sense switches. Either 
subprogram tests sense switch i. If sense switch i is on, the subroutine stores 
a one in variable j; the function returns a one (in the A register) to the refer¬ 
encing statement. If sense switch i is off, a two is stored or returned. 

If i is other than 1 through 6, the subprogram provides a diagnostic. 


subroutine DVCHK (j) 
function DVCHKF (i) 

Either subprogram tests and turns off the divide fault indicator. If the indicator 
is on, the subroutine stores a one in variable j; the function returns a one (in 
the A register) to the referencing statement. If the indicator is already off, a 
two is stored or returned. (The i in the function reference is a dummy para¬ 
meter that is required but not used.) 


subroutine EXFLT (j) 
function EXFLTF (i) 

Either subprogram tests and turns off the exponent fault indicator. If the 
indicator is on, the subroutine stores a one in variable j; the function returns 
a one (in the A register) to the referencing statement. If the indicator is 
already off, a two is stored or returned. (The i in the function reference is a 
dummy parameter that is required but not used.) 


subroutine OVERFL (j) 
function OVERFLF (i) 

Either subprogram tests and turns off the overflow indicator. If the indicator 
is on, the subroutine stores a one in variable j; the function returns a one (in 
the A register) to the referencing statement. If the indicator is already off, 
a two is stored or returned. (The i in the function reference is a dummy 
parameter that is required but not used.) 
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INPUT/OUTPUT FORMAT SPECIFICATIONS 


9 


9.1 

I/O LIST 


9 . 1.1 

DO-IMPLYING 

SEGMENTS 


Data transmission and conversion between storage and external units require 
format lists and I/O control statements (Chapter 10). The I/O statements 
specify the input/output device and process, and list the data to be moved. For 
binary information, no format list is required. Format lists are provided in 
FORMAT statements or in specially prepared variable arrays. 


The list portion of an l/O control statement indicates the data elements and the 
order of transmission from left to right. Elements are simple variables or 
array names (subscripted or non-subscripted). All variables in the list must 
be standard types. A type other variable produces a compiler dia^ostic. 

List elements are separated by commas; their order must correspond to the 
order of the format list. 

Examples: 

A, B, H(I), Q(3,4) ((BUZ(K,2*L), K=l,5), I/=l,13,2) 

SPECS Q(3), Z(2,2), (TUP(3*I-4), 1=2,10) 

A, DELTAX(J+1) (RAZ(K), K=l, LIMl, LIM2) 


A DO-implying segment consists of one or more list elements and indexing 
values. Dimensioned arrays may appear in the list with values specified for 
the range of the subscripts in an implied DO loop. 

The general form for a DO-implying segment is: 

(...((list, 'y^=m]^,m 2 ,m 3 ), 72=n]^, n 2 , ng),... ,'yj=zz 2 , zzg, zzg) 

unsigned integer constants or predefined positive 
integer variables. When the third indexing parame¬ 
ter (mg, ng,... zzg) is omitted, a one is used for 
incrementing. 

7 j are index variables. 
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A list element may be a simple variable, a dimensioned variable, or an 
array name. 

The first index variable ("yj) defined in the list is incremented first. Data 
named in the implied DO loops is transmitted by increments of m 3 until mg is 
exceeded. (When m 3 is omitted, the increment value is 1.) When the first 
index variable reaches mg, it is reset; the next index variable to the right ( 7 g) 
is then incremented and the process is repeated until the last index variable 
( 72 ) has been incremented. 

The general form for arrays is: 

(((A(I,J,K), 'yi=mi,m2,m3), 'y2=ni,n2,n3), 73=pi,P2,P3) 

I, J, K are subscripts of A and must be of the standard form. 

71 , 73 , 73 may represent I, J, K. T'i ^ "^2 ^ ^3 

A DO-implying segment for an array may replace a nest of DO loops of the form 


DO 

10 


pgj 

P 3 

DO 

10 


ng. 

^^3 

DO 

10 


” 2 ’ 

m 3 


transmit list elements 


Id 


CONTINUE 


An implied DO loop may also be used to transmit a simple variable, a sequence 
of variables, or an array a number of times. In the segment (A, K=l, 10) A 
will be transmitted 10 times. 

The limit to which implied DO loops may be nested is determined by the length 
of the statement. 



Examples: 


1) Example of a DO-implying segment nested 5 deep: 

(((((A(I,J,K), B(M), C(N), N=l,10,l), M=l,5), K=KK(1), KK(2), KK(3)), 
J=l,60,15), 1=1,10,1) 

During execution each subscript (index variable) is set to the initial index 
value: 1=1, J=l, K=KK(1), M=l, N=l. The segment replaces a DO 
loop nest of the form: 

|i d I? 

DO 15 1=1,10,1 
DO 15 J=l,60,15 
DO 15 K=KK(1), KK(2), KK(3) 

DO 15 M=l,5 
DO 15 N=l,10,l 

Transmit A(I,J,K), B(M), C(N) 

CONTINUE 

2) Elements of A, a 3 by 3 matrix, will be transmitted by columns using: 
((A(I,J), 1=1,3), J=l,3) 

3) Elements of A will be transmitted by rows using: 

((A(I,J), J=l,3), 1=1,3) 

4) In the list segment (B(J), L, (A(I, L), 1=1, L), J=3,9,3), L must have a 
value before it can be used as an index variable. The segment replaces a 
DO loop nest of the form: 

si I ? _ 

DO 11 J=3,9,3 

Transmit B(J) and L 
DO 11 1=1,L 
Transmit A(I,L) 

11 CONTINUE 

5) CAT, DOG, and RAT will each be transmitted 10 times with the segment 
(CAT, DOG, RAT, 1=1,10) 
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9 . 1.2 

TRANSMISSION 
OF ARRAYS 


9.2 

FORMAT 

STATEMENT 


In an I/O list, an array name without subscripts causes the entire array to be 
transmitted. 

Examples: 


DIMENSION SPECS (7, 5, 3) 
Transmit SPECS 


transmits the array SPECS as if under control of the nested DO loops 


1 5 


7 

10 


DO 10 K=l,3 

DO 10 J=l,5 

DO 10 1=1,7 

Transmit SPECS (I,J,K) 

CONTINUE 


or as if under control of an implied DO loop 

... ,{(SPECS{I,J,K),I=1,7), J=l,5), K=l,3),... 


The binary coded decimal (BCD) 1/O control statements require a format list 
for internal/external conversion of the I/O list elements. The list is usually 
given with a FORMAT statement: 

FORMAT (spec]^,... kjj(speCjjj,...), kySpecQ,. ..) 

spec^ are format specifications. The repetition factors must be un¬ 
signed integer constants. When k is outside the parenthesis, the specifi¬ 
cations within are all repeated k times. (Section 9. 5) 

The FORMAT statement is nonexecutable and can appear anywhere in the 
program. The word FORMAT is reserved and cannot be used as an identifier. 
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9.3 

CONVERSION 

SPECIFICATIONS 


9 . 3.1 

Ew.d OUTPUT 


Data elements in 1/O lists are converted according to format lists that contain 
conversion specifications and editing codes. 

FORTRAN conversion specifications: 

Ew. d Single precision floating point with exponent 
Fw. d Single precision floating point without esqponent 
Iw Decimal integer conversion 

Ow Octal integer conversion 

Aw Alphanumeric conversion (left justification with blank fill) 

Rw Alphanumeric conversion (right justification with zero fill) 

FORTRAN editing codes: 

wX Intra-line spacing 

wH Heading and labeling 

/ Begin new record 

Both w and d are imsigned integer constants, w specifies the field width, the 
number of character positions in the record; d specifies the number of digits 
to the right of the decimal point within the field. 


The Ew. d specification converts floating point numbers in storage to the BCD 
character form for output. The field occupies w positions in the output record; 
the corresponding rounded floating point number appears right justified in the 
field as 

± O', a... oiE Aee when jeej < 99 

A a. a... OiEeee when 99 < eee <308 

h a, a.., a-eee when -308 < eee < -99 

a. a... a are the most significant digits of the integer and fractional part; eee 
are the digits in the exponent. If d is zero or blank, the decimal point and 
digits to the right of the decimal do not appear. The fractional part contains 
a maximum of 11 digits. Field w must be wide enough to contain the integer 
portion, s^s, decimal point, E and the exponent. 
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When the field is not wide enough to contain the output value, digits are dropped 
from the right of the fraction and the fraction sign may be lost. An asterisk is 
inserted immediately before ejqxjnent designator E if the negative sign is lost. 

A w field width less than 5 causes a format error. If the field is longer than 
the output value, the quantity is right justified with blanks in the excess posi¬ 
tions to the left. For negative exponents that occupy 3 digits, E is suppressed. 

Examples (TAPEl and OUT are integer variables): 

1) Proper use of Ew.d specification 

RIGHT 



^RITE (TAPEl, 10)A 
10 [FORMAT (E10.3) 

A contains -67.32 or +67.32 

Result: -6. 732 Ea 01 or /^6. 732E;\01 

2) Minus sign not provided for 
WRONG 



WRITE (TAPEl, 10)A 
10| FORMAT (E8.3) 

A contains +67. 32 or -67.32 

Result: 6. 73E ^01 or 6. 7 *Ea01 

3) w is larger than required 

I si I? _ 

WRITE (OUT, 25) A 
25 FORMAT (E14.4) 

A contains 412.679 
Result: aaaa 1268E/\02 

4) E suppressed 



X contains 4.12673 x 10 
Result: a4. 1267-200 


9-6 



9 . 3.2 

Ew.d INPUT 


The Ew. d inpat specification converts the number in the input field to real and 
stores it in the appropriate location in memory, 

w specifies the total number of characters in the input field, hi the left-to- 
night scanning process, blanks in the field are interpreted as zeros. 

The subfields for an input value may include integer, fraction, and exponent in 
the forms: 

n.mEsss n.m sss 

n. m . m sss 

. mEsss 
n 


. m 

Esss 

Subfield structure of the input field: 

input field 


+ 


+ 

- 


- sss 

digit 

• 

E 

integer 

k fraction 

^ decimal point 

exf)onent 


For an integer (n) input value with no decimal point indicated, the E conversion 
specification scales the value. 

An integer subfield begins with a sign (+ or -) or a digit followed by a string of 
digits and ends with a decimal point, E, sign, or end of w. 

A fraction subfield begins with the decimal point, includes a string of digits, 
and ends with a sign, E, or the end of w. 

An exponent subfield may begin with E or a sign. When it begins with E, the 
sign may appear between E and the digits in the exponent. The digits in the 
ejqxjnent must be less than or equal to 308; the entire input quantity must be in 
the range of ± 

When no decimal point is present, d in the Ew. d specification is a negative 
power factor of ten. The internal representation of the input quantity becomes: 

(integer subHeld) x x subfield) 
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For example, if the specification is E7. 8, the input quantity 3267+05 is con¬ 
verted and stored as 3267x10"^!0^ = 3.267. 

When E conversion is specified, and a decimal point occurs in the input constant, 
the decimal point overrides d. The input quantity 3.67294+5 may be read by any 
specification allotting necessary field length but will always be stored as 
3.67294x10^. 


When d does not appear it is assumed to be zero. 

w field length must be the same as the length of the input field. When w is too 
long, incorrect numbers may be read, converted, and stored as shown below. 
When w is too short, a portion of the input field may be left unread. The w 
field includes significant digits (maximum of 11), signs, decimal point, E, and 
exponent. 


Example: 

INPUT CARD 


,+6.47E-01-2.36+5.321E+02 


10 - 


INCORRECT SPECIFICATION 


1 5 


7 

20 


READ 20, A,B,C 

FORMAT (E9.3, E7.2, E10.3) 


Reading proceeds as follows: 




--10 —► 

+6.47E-01 

-2.36+5.32 IE+0 2a A 

+6.47E-01 

-2.36+5 

.321E+02AA 

+6.47E-01 

-2.36+5 

.321E+02AA 


First, +6. 47E-01 is read, converted, and placed in location A. 

Next, -2.36+5 is read, converted, and placed in location B. The number 
desired was -2. 36 but the specification error (E7.2 instead of E5. 2) 
caused the two extra characters to be read. The number read (-2.36+5) 
is legitimate under the defmitions and restrictions. 



Finally, . 321E+0200 is read, converted, and placed in location C. Here 
again, the input number is legitimate although it is not the number desired. 

In this example, numbers are incorrectly read, converted, and stored, yet 
there is no immediate indication that an error has occurred. 


Examples: 


Input Field 

Ew.d Input 
Specification 

Converted 

Value 

Remarks 

+143. 26E-03 

Ell. 2 

.14326 

Subfields all present 

-12.437629E+1 

E13.6 

-124.37629 

Subfields all present 

8936E+004 

E9.10 

.008936 

Input number converted as 
89 36x10“^^“'''^ 

327.625 

E7.3 

327.625 

No exponent subfield 

4.376 

E5 

4.376 

No d in specification 

-.0003627+5 

Ell. 7 

-36.27 

Integer subfield contains 
only minus 

-.0003627E5 

Ell. 7 

-36.27 

Integer subfield contains 
only minus 

lEl 

E3.0 

10. 

Input number converted as 
l.xlOl 

E+06 

ElO. 6 

0. 

No integer or fraction sub- 
field. Zero stored regard¬ 
less of exponent 

l.E 1 

E6.3 

10. 

Blanks interpreted as zeros 


9 . 3.3 

Fw.d OUTPUT 


S represents the most significant digits of the number (maximum 11). The 
number of decimal places to the right of the decimal is specified by d. If d is 
zero or omitted, the decimal point and digits to the right do not appear. If the 
number is positive, the + sign is suppressed. 


The Fw.d specification converts floating point numbers in storage to BCD 
form for output. The field occupies w positions in the output record; the cor¬ 
responding list element must be a floating point quantity that is converted and 
rounded to a decimal number, right justified in the w field, as: 
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If the field is too short to accommodate the number, high-order digits are 
discarded from the left, the sign is suppressed, and an asterisk appears in the 
rightmost character position to indicate the deletion. 

If the field w is longer than retpired to accommodate the number, it is right 
justified with blanks occupying the excess field positions to the left. 

Examples (TAPEl and OUT are integer variables): 

1) Proper Specification 



A contains +123.45678 or -123.45678 
Result: /^23. 45678 or -123.45678 

2) w too small to accommodate integer portion 

I 5| I? 

iJRITE (TAPEl, 10)A 
10 FORMAT (F8.5) 

A contains +123.45678 

Result: 23.4567^ 

* 

3) w too small to accommodate sign 

I sM? _ 

iJRITE (42, 12)A 
12 FORMAT (F6.3) 

A contains -67.460 
Result: 67.46^= 

4) w larger than required 



A contains 412.6727 
Result: a412. 673 
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The Fw. d specification converts a number in an input field (specified by w) to 
real and stores it in memory. The input field consists of an integer and a 
fraction subfield. An omitted subfield is assumed to be zero. 

Permissible subfield combinations are: 

Integer fraction 
Integer by itself 
Fraction by itself 

An Integer subfield begins with a digit, + or blanks in the field are interpreted 
as zeros. The integer field is terminated by a period, or by the end of the input 
field. 

A fraction subfield begins with a decimal point; it is terminated by the end of 
the input field. 

In the Fw.d specification, d acts as a negative power factor of ten when the 
fraction subfield is not present. The internal representation is: (integer sub- 
field) X 10"^. For example, the specification F4. 4 causes the input quantity 
3267 to be converted and stored as 3267 x = . 3267. 

A decimal point in the input quantity causes d to be ignored. For example, 

3. 6789 may be read under any F6.d specification but will always be stored as 
3.6789. 

When d does not appear it is assumed to be zero. For example, the input 
quantity +14. 62 is read into memory as 14. 62 by the specification F6. 

The maximum number of significant digits that may appear in the combined 
integer-fraction field is 11. Excess digits are discarded from the right during 
the conversion process. 

The field length specified by w in Fw.d should always be the same as the actual 
length of the input field containing the input number. When it is too long, 
incorrect numbers may be read, converted and stored. When it is too short, 
significant digits may be lost. 


9 . 3.4 

Fw.d INPUT 
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Examples: 


9 . 3.5 

iw OUTPUT 


Input Field 

Fw.d Input 
Specification 

Converted 

Value 

Remarks 

367.2593 

F8.4 

367.2593 

Integer and fraction field 

37925 

F5.7 

.0037925 

No fraction subfield. Input 
number converted as 37925 

X lO""^ 

-4.7366 

F7 

-4.7366 

No d in specification 

.62543 

F6.5 

.62543 

No integer subfield 

.62543 

F6.d 

.62543 

Decimal point overrides d 
of specification 

+144.15E-03 

F11.2 

.14415 

Exponents are legitimate in 
F input 


The Iw specification converts decimal integer values in the output list to BCD 
character form for output. The output quantity occupies w output record posi¬ 
tions; it will appear right justified in the field w, as: 

A 5 f. . . 5 n 

represent decimal digits (maximum 7) of the integer. When the integer is 
positive the + sign is suppressed. 

When the field w is larger than required, the output quantity is right justified 
with blanks occupying excess positions to the left. When the field is too short, 
characters are discarded from the left; an asterisk inserted at the right indi¬ 
cates deletion. 
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Example: 


1 5 


7 

10 


WRITE (Kl, 10) J,K,L 

FORMAT (18, 110, 15) 


J contains -3762 
K contains +4762937 
L contains +13 


Result: 


AAA 3762/\^/\/\^762937/\/y\13 



9 . 3.6 

Iw INPUT 


The Iw input specification converts the input field to a decimal integer. The 
field is w characters in length and the corresponding list element must be a 
decimal integer quantity. 


Input field w consists of an integer subfield that contains only a plus or minus, 

0 through 9, or blank, interpreted as zero. When a sign appears, it must pre¬ 
cede the first digit in the field. The value is stored right-justified in the 
specified variable. 


Example: 

Input Card 
.col.1, 


/l39.^-15 18^7^3^1^4 

-7—J 2^3^ 2k4-J 


1 5 


7 

10 


READ (K3, 10) I,J,K,L,M,N 

FORMAT (13,17,12,13,12,14) 


Result: I 

contains 139 

L 

contains 7 

J 

” -1500 

M 

" 3 

K 

" 18 

N 

” 104 
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9 . 3.7 

Ow OUTPUT 


9 . 3.8 

Ow INPUT 


The Ow output specification converts internal binary to BCD octal integers. 

The output quantity occupies w output record positions and appears as: 

5 !•.. 5 n 

represent octal digits (maximum 8 for tjpes integer and character, 16 for 
type real). No sign appears; a negative octal number is represented as it 
appears in storage in one's complement form. If w is greater than required, the 
number is right justified. If w is too small, the rightmost octal digits in stor¬ 
age occupy the output field; the left portion of the word is lost. 

Example: 


1 5 


7 

12 


WRITE (Kl, 12) I,J,K,A 

FORMAT (03,08,04,018) 


I contains 00000144g = IOO^^q 

J " 00002450g = 1320 ]^q 

K ” 00000044g = 

A " 2012452275000000 = 1124. 5728 = 596. 739;lq 

Result: 144aaaa2450aa44aa2012452275000000 



^ Q ^ 


^ 1 o ^ I 

[*3*^ 





The Ow input specification provides a method of entering octal quantities into 
storage. The input field w has a maximum of 8 octal digits for character or 
integer and 16 for real. The string of octal digits may be preceded by a sign; 
a negative sign causes the one's complement of the quantity to be stored. 
Blanks in the field are interpreted as zeros. Only octal digits (0-7) may 
appear. 
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Example: 


9 . 3.9 

Aw OUTPUT 


Input Card 


37373737-44/v\201245227500000066441a444036 


18 


12 


1. 5 


7 

10 


READ (Kl, 10) K,L,P,M 

FORMAT (08,03,018,012) 


Result: K 

contains 37373737 

L 

TT 

77777733 

P 

n 

20124522 

M 


10444036 


(complement form) 
75000000 

tr» r» A A T_x\ 

(00^"± iUiSL) 


With the Aw output specification internal BCD (Appendix A) is converted to 
external alphanumeric characters. 


Oil represent alphanumeric characters. Maximum is 4 characters for types 
integer; 8 for type real. When w is larger than required, the character string 
is right justified with blank fill to the left. When the field is too small, the 
leftmost characters appear in the output field; any other characters are lost. 

Example: 


1 5 


7 

14 


INTEGER A,B,C 

WRITE(K5,14) A,B,C,R,Q 

FORMAT (2A4, A3, A4, 2A8) 


A contains 66302545 == WHEN 

B ” 60314560 =aINa 

C " 63662560 = THEa 

R '* 6346245122656046 = COURSEaO 

Q ” 5301061105330710 - $1695.78 
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Result: 


WHEN/s,INaTHECOUR$1695. 78 

J ' 


w too small: 


A 


lost 


w too smali^ 
SEaO lost 


9 . 3.10 

Aw INPUT 


The Aw input specification accepts up to four 6-bit characters for types integer 
and character variables, and eight 6-bit characters for type real variables. A 
blank in the input field is converted to the 6-bit equivalent BCD code for blanks 
(60). If w exceeds the allowed number of characters (4 or 8), only the right¬ 
most characters are stored in the variable defined in the I/O list. If w is less 
than the allowed number, the characters in the input field are stored left 
justified in the variable with blank fill to the right. 

Example: 


Input Card 


WTIEN/^INaTHE COURSE$1695.78 




iq 


INTEGER A,B,C 

READ (K4,10) A,B,C,R,Q 

FORMAT (2A4,A3,A6,A8) 


incorrect specification 


Result: 


A contains 

66302545 

B " 

60314560 

C " 

63662560 

R 

64516225 

Q 

5301061105330710 = 


WHEN 

aINa 

THEa (left justified vdth blank fill) 
URSE (CO lost) 

$1695.78 
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9.3.n 

Rw OUTPUT 


The Rw output specification is similar to the Aw specification for converting 
internal BCD words (Appendix A) to external alphanumeric characters. The w 
output field is: 

ai...an 

(\ represent alphanumeric characters (Maximum is 4 characters for types 
integer; 8 characters for type real.) When w is larger than required to repre¬ 
sent the characters, the character string is right justified with zero fill at the 
left. When the field is too small, the rightmost characters appear in the output 
field; any other characters are lost. 

Example: 


1 5 


7 

14 


integer a,b,c 

WRITE (K5,14) A,B,G,R,Q 

FORmT (2R5,R3, R4, R8) 


A 

B 

C 

R 

Q 


contains 

66302545 

= WHEN 

TT 

60314560 

= aIN a 

tl 

63662560 

= THE A 

!T 

6346245122656046 

= COURSE A 0 

TT 

5301061105330710 

= $1695.78 


Result; 




w too large; 
zero fill 


OWHENOaINa HEaSEa 0$1695. 78 

^ ^ 


w too small; 

T lost; COUR lost 
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9.3.12 

Rw INPUT 


9.4 

EDITING 

SPECIFICATIONS 


9.4.1 

SPACE (wX) 


The Rw input specification, like the Aw specification, accepts up to four 6-bit 
characters for types integer and character variables and eight 6-bit characters 
for type real variables. A blank in the input field is converted to the 6-bit 
equivalent BCD code for blanks (60). If w exceeds the allowed number of 
characters (4 or 8) only the rightmost characters are stored in the variable 
defined in the I/O list. If w is less than the allowed number, the characters in 
the input field are stored right justified with zero fill at the left. 

Example: 


Input Card 


WHEN/vINaTHECOURSE$ 1695. 78 
4 —»|»4 —^ 3 •j-*—6 —8—^ 


1 5 


7 

10 


integer a,b,c 

READ (K4,10) A,B,C,K,Q 

FORMAT (2R4,R3,R6,R8) 

—-incorrect specifications 


Result: 

A 

contains 

66302545 

= WHEN 

B 

!! 

60314560 

= AINA 

C 

n 

00636625 

= OTHE (right justified with zero fill) 

K 

11 

64516225 

= URSE (CO lost) 

Q 

11 

5301061105330710 

= $1695.78 


Editing specifications define spacing between characters and lines, skip records, 
begin new records, and provide a method of adding headings and comments. 


The wX specification produces blanks in an output record or skips w characters 
on input to permit spacing of input/output quantities. If w is zero or blank, a 
value of 1 is assumed. The comma after X is optional; see example 2. 
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ilixampies; 



A contains 7 
B " 13,6 

C ” 1462.37 


Result; 


a7aaaaaaa13-6Q\aaaaaa1-46237E+ 03 




Result; R contains 15.62 

S " 13.78 (aa$ spaced over) 

T " 15.97 (ACOSTy\ spaced over) 
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9 . 4.2 

wH OUTPUT 


9 . 4.3 
wH INPUT 


The wH output specification provides a method of including a set of w 6-bit 
Hollerith characters (Appendix A) in the output record in the form of comments, 
titles, headings, and carriage control characters. 

An imsigned integer w specifies the number of characters to the right of H to 
be included in the output record. If w = 0, or is missing, a value of 1 is 
assumed. The comma following the wH specification is optional. 

Examples: 

1) No l/O List 


1 5 


7 

20 


WRITE (K7,20) 

FORMAT (28H BLANKS COUNT IN AN H FIELD.) 


Output record: ^ BLANKS aCOUNT a IN a AN a H aFIELD. 
2) Mixed Specifications 


1 5 


7 

30 


WRITE (K4,30)A 

FORMAT (6H LMAX=,F5.2) 


A contains 1.5 

Output record: aLMAX=a1.50 


With the H specification, a new heading is read into an existing H field. When 
the new characters on an input record are read, the corresponding characters 
are placed into the format list designated in the l/O statement. A subsequent 
output statement puts the new characters in the output record, w specifies the 
number of characters in the input field. 
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Example: Input Card: 


9 . 4.4 

NEW RECORD (/) 


Input Card 
col.l 

4tHIS/\IS/\ A/xVARIAB LE^HE ADING 
U ^— 27 cols.- J 


1 5 

7 

10 

READ (K4,10) 

FORMAT (27HaaaAAAAAAAAAAAAAAAAAAAAAAAA 
• [-«-27 spaces-► 

WRITE (K5,10) 

) 


Result: a THISaISaAaVARIABLEaHEADING 


A slash, signaling the end of a BCD record, may appear anywhere in the spec¬ 
ifications list. It need not be separated from other list elements by commas; 
consecutive slashes may appear. During output, it is used to start new records, 
cards, or lines. During input, / specifies the beginning of the next card or 
record. 

Example: 

1 ) 


1 5 

Jz_ 


WRITE 

FORMAT 

(K2,10) 

(2 OX,7HHEADING///6X,5HINPUT, 1 9X,6H0UTPUT) 


Output Record: 

AAAAAAAAAAAAAAAAAAAA™^^^ 


line 1 
line 2 
line 3 
line 4 


Each line corresponds to a BCD record. The second and third records 
are null and produce the line spacing illustrated. 
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9.5 

REPEATED 

SPECIFICATIONS 


2) A contains -11.6 
B ” .325 

C " 46.327 

D ” -14.261 


1 5 


7 

11 


WRITE (Kl,ll) A,B,C,D 

FORMAT (2E10.2/2F7.3) 


Result: a-1-16Ea01aa3.25E-01 
a46. 327-14. 261 


Line 1 
Line 2 


1 5 


7 

11 


WRITE (K2,ll) A,B,C,D 

FORMAT (2E10.2/ /2F7.3) 


Result: a“1-16Ea01aa 3-25E-01 line 1 

line 2 

a46. 327-14.261 line 3 

3) AMAX contains 3. 62 
AMAX+1 ” -4.03 

AMAX+2 ” -9.78 


1 5 


7 



WRITE (Kl,15) (AMAX(I),1=1,3) 

FORMAT (8^ANSWERS2 (/) 3F8.2) 


Result: a ANSWERS line 1 

line 2 

aaaa 3. 62AAA-4. 03AAA-9. 78 line 3 


A Format specification may be repeated by using an unsigned integer constant 
k as a repetition factor as follows: 

k (spec) 

spec may be any conversion specification. 

For example, if two quantities K, L are to be printed, the program could 
be written: 
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il si I? 


WRITE (K1,10)K,L 
10 FORMA.T (12,12) 

Since the specifications for K, L are identical, the FORMAT statement may be 
written: 

I si [7 

10 FORMAT (212) 

When a group of format specifications repeats itself, as in 
FORMAT (E15.3, F6.1,14,14, E15. 3, F6.1,14,14) 
the use of k produces: 

FORMAT (2(E15. 3,F6.1,2I4)) 

The parenthetical grouping of the format specifications is called a repeated 
group. 

Repeated groups may not be nested; nor may parentheses be used within re¬ 
peated groups. 

Examples: 

1) ILLEGAL: 

I 5| I? 

10 FORMAT (IHl, 5(25X, (F6.2))) 

11 FORMAT (E5.4,3(4X, F5.1, 2(E6.2))) 

2) LEGAL: 
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9.6 

VARIABLE FORMAT Format lists need not be provided with FORMAT statements; instead, they can 
be placed in arrays. Placing format lists in arrays and referencing the arrays 
instead of the FORMAT statement permits the programmer to change, index, 
and specify formats at the time of execution. 

Format arrays are prepared by storing a format list, including left and right 
parentheses, as it would otherwise appear with a FORMAT statement. Variable 
specifications can be read in from cards, changed with replacement statements, 
or preset in labeled common with a DATA statement. 

Examples: 

1) Prepare an array for format list 
/(E12.2,F8.2,I7,2E20.3,F9.3,I4) 


1 5 


7 

1 


DIMENSION IVAR (8) 

READ (Kl,l) (IVAR (I), I = 1,8) 

FORMAT (8A4) 


Result: IVAR 

contains 

(E12 

IVAR+4 

contains E20. 

IVAR+1 

Tf 

.2, F 

IVAR+5 

” 3,F9 

IVAR+2 

f f 

8.2, 

IVAR+6 

" .3,1 

IVAR+3 

TT 

17,2 

IVAR+7 

” 4)aa 


When using the specifications, reference the array: 


WRITE 

(K2, 

IVAR (1)) A,B,I,C,D,E,J 

or 



WRITE 

(K2, 

IVAR) A,B,I,C,D,E,J 


9-24 



Specifications can be changed with replacement statements: 


1 5 

7 

! 

IVAR (4) = 4I^;\a2 


removes 17 from the format list, permitting 


1 5 

7 


WRITE (K2, IVAR) A,B,C,D,E,J 


2) Prepare two lists that can be selected by indexing at time of execution. 

Lists: (E12.2, F8.2, 217) 

(F8.2, E12.2, 217) 


COMMON/DATA/LAIS (8) 

DATA (LAIS = 4H(E12,4H.2,F,4H8.2,4H2I7),4H(F8.,4H2,E1,4H2.2,4H2I7) 


Result: LAIS 

contains 

(E12 

LAIS+4 contains (F8. 

LAIS+1 

Tf 

,2,F 

LAIS+5 

" 2,El 

LAIS+2 

tr 

8.2, 

LAIS+6 

" 2.2, 

LAIS+3 

tt 

217) 

LAIS+7 

to 
1—1 


These could be referenced as: 


1 = 1 
Go to 16 


16 


1 = 5 

WRITE (K3, LAIS (I)) A,B,I,J 








Result: When 1=1 


9.7 

CARRIAGE 

CONTROL 


AAAaI . 67Ea04aaa15 • 15aaaa654a801657 


12 




When 1=5 


16738.32aaaa1 • 52Ea0]aaaa654a801657 


12 




The first character of a listable output record is used for printer carriage 
control, and is not printed. Usually, this character is an H format in a 
FORMAT specification which is used by a PRINT or WRITE on OUT state¬ 
ment. 


Character 

Action Before Print 

Action After Print 

1 

Skip to format level 8 

Space one line 

2 

Skip to format level 7 

Space one line 

3 

Skip to format level 6 

Space one line 

4 

Skip to format level 5 

Space one line 

5 

Skip to format level 4 

Space one line 

6 

Skip to format level 3 

Space one line 

7 

Skip to format level 2 

Space one line 

8 

Skip to format level 1 

Space one line 

A 

No space 

Skip to format level 

B 

No space 

Skip to format level 

C 

No space 

Skip to format level 

D 

No space 

Skip to format level 

E 

No space 

Skip to format level 

F 

No space 

Skip to format level 

G 

No space 

Skip to format level 

H 

No space 

Skip to format level 

blank 

No space 

Space one line 

0 (zero) 

Space one line 

Space one line 

- 

Space two lines 

^ace one line 

♦ 

No space 

No space 

other 

No space 

Skip to format level 
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INPUT/OUTPUT STATEMENTS 


10 


Input/output statements control the transfer of information between the storage 
unit and an external device. 

In the I/O control statements: 

i indicates the logical imit number; must be a simple integer variable 

or an integer constant. 

n identifies the format list. It is either a FORhlAT statement number 
or the name of the variable containing the format list. Binary data 
transmission does not require n. 

list indicates the I/O list (Section 9.1) 

Binary data is transmitted with odd parity-checking bits; BCD with even parity¬ 
checking bits. 


10.1 

OUTPUT 

STATEMENTS 

10.1.1 

PRINT RECORD PRINT n, list 

Transfers information from the storage locations in list to the standard output 
unit. This information is transferred as line printer images, 136 characters 
or less per line, in accordance with format list n. The maximum record length 
is 136 characters, but the first character of every record is used for carriage 
control on the printer and is not printed. 




Example: 


10.1.2 

PUNCH CARD RECORD 


10 . 1.3 

WRITE BINARY RECORD 


5 


7 


16 


PRINT 16, A 

FORMAT (10%RESULTy\=y^, F7. 


3) 


PRINT MESS, ADDR 


Array MESS is a variable format list. It currently is: 
(IOHaERRORaATa, 08) 


MESS 

contains 

(lOH 

MESS+1 

IT 

A ERR 

MESS+2 

r? 

ORaA 

MESS+3 

fl 

Ta.O 

MESS+4 

ff 

8)a a 


PUNCH n, list 

Transfers information from the memory locations given by the list to the 
standard punch unit. This information is transferred as Hollerith images, 80 
characters or less per card in accordance with the format list n. A maximum 
of 80 characters is permitted on one card. 


WRITE (i) list 
WRITE TAPE i, list 

Transfer binary information from the storage locations given by the list iden¬ 
tifiers to the specified logical unit (i may be 1-55). If the list is omitted, the 
statement acts as a no operation. 
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10 . 1.4 

WRITE BCD RECORD 


The number of elements in the list determines the number of physical records 
to be written on the unit. A physical record contains a maximum of 128 words; 
the first word is a count word, the remaining 127 words contain the transmitted 
data. The last physical record may contain from 2 to 128 words. The physical 
records written by one write binary record statement constitute one logical 
record. Information is recorded in odd parity (binary mode), as illustrated in 
figures la and lb. 

For k physical records in the logical record, the first word of all records 
except the kth contains zero; the first word of the kth record contains the 
integer k. If there is only one physical record, the first word contains the 
integer 1. 

Examples; 

! 5 ? 

DIMENSION A(260), B(4) 

WRITE (10) A, B 
or 

[write tape 10, a, b 
DO 5 I = 1, 10 

5 WRITE (6) AMAX(I),(M(I,J), J=l,5) 
or 

5 WRITE TAPE 6, AMAX(I),(M(I,J), J=l,5) 


WRITE (i,n) list 

WRITE OUTPUT TAPE i,n,list 

Transfer information from storage locations given by identifiers in the list to 
tape unit (i) according to the format list n. i may be 1 to 55, 59, 61, or 62. 

A logical record containing up to 136 characters is written on magnetic tape ip 
even parity (BCD mode). Each logical record is one physical record. The 
number of elements in the l/O list and the format list (n) determines the number 
of records to be written on a unit. If the logical record is less than 136 char¬ 
acters, the remainder of the record is filled with blanks to the nearest multiple 
of 4 characters. 

When the tape is to be printed the first character of a record is a printer cout 
trol character that will not be printed. If the programmer fails to allow for a 
printer control character, the first character of the output data is lost on the 
printed listing. 
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WRITE: BINARY (ODD PARITY) k WORDS 



Figure la 


MEMORY TAPE SCHEMATIC 


jacHETIC TAPE 


a 


Of +k-l 



Figure lb 


10-4 












Examples: 


10.2 

INPUT STATEMENTS 

10.2.1 

READ CARD RECORD 


10.2.2 

READ BINARY RECORD 


2d 


21 


[WRITE (10,20) A,B,C 

FORMAT (3F10.6) 
[WRITE (4,21) 


WRITE OUTPUT TAPE 10,20,A,B,C 


or 


WRITE OUTPUT TAPE 4,21 
FORMAT (33H THIS STATEMENT HAS NO DATA LIST.) 


READ n, list 

Reads one or more card images from the standard input unit, converting the 
information, from left to right, in accordance with format list n, and stores 
the converted data in the locations named in the l/O list. The images read may 
come from 80-column Hollerith cards or from magnetic tapes prepared off-line 
containing 80-character records in BCD mode. 

Example: 


5 7 


Id 


READ 10, A,B,C 
FORMAT (3F10.4) 


READ (i) list 
READ TAPE i, list 

Transfer one logical record of information from logical unit i (1 through 55) to 
storage locations named by the list identifiers. 

The record being read must have been written in binary mode by a WRITE (i) 
list or WRITE TAPE i, list statement. The word count is not transmitted to 
the input area. The number of words in the list must be equal to or less than 
the number of words in the corresponding write statement. 

When the list is omitted, the binary read statement spaces over one logical 
record. 
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Examples: 


10 . 2.3 

READ BCD RECORD 


DIMENSION C(264), BMA.X(10), M2(10,5) 

READ (10) C 
or 

READ TAPE 10, C 
DO 7 1=1,10 

7 READ TAPE 6, BMAX(I),(M2(I,J), J=L,5) 

READ (5) (skip one logical record on unit 5) 
READ (6) ((A(I,J),I=1,100),J=1,50) 
or 

READ TAPE 6, ((A(I,J),1=1,100),J=1,50) 


READ (i,n) list 

READ INPUT TAPE i,n, list 

Transfer one logical record of information from logical unit i (1 through 55, 
58, 60) to storage locations specified in the list according to format list n. 

The number of words in the list and the format specifications must conform to 
the record structure on the logical unit (up to 136 characters in BCD mode). 
The record being read must have been written in BCD mode; reading a binary 
record with a BCD read statement causes a parity error. 

Examples: 


1 5 


7 

11 


READ INPUT TAPE 10, 11, X, Y, Z 
or 

READ (10,11) X, Y, Z 

FORMAT (3F10.6) 


I 

1 = 5 

READ (2, MB(I)) (Z(K), K = 1,8) 
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Array MB contains indexed variable specifications 


10.3 

BUFFER 

STATEMENTS 


MB 

(1) 

contains (FIO 

MB 

(2) 

TT 

.4)a 

MB 

(3) 

tf 

(FIO 

MB 

(4) 

tr 

• 3)a 

MB 

(5) 

TT 

(F7. 

MB 

(6) 

T? 

2)a a 

Because 

1 = 

5, the 

input fo 


Primary differences between the buffer and read/write I/O statements are: 

1. In a buffer control statement, parity must be specified by a parity 
indicator. The mode of transmission (BCD or binary) for read/write 
statements, however, is tacitly implied by the form of the control 
statement. 

2. The buffer control statements are not associated with I/O or format 
lists; data transmission occurs (without conversion) to or from one 
area in storage. Read/write control statements, however, are asso¬ 
ciated with I/O lists and, in BCD transmission, with format lists. 

3. Only one physical record is transferred per buffer request. 

4. A buffer control statement initiates data transmission and then returns 
control to the program, permitting the program to perform other tasks 
while data transmission is in progress. Before buffered data is used, 
the status of the buffer operation should be checked. 

5. Buffer statements permit reverse reading. 
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10 . 3.1 
BUFFER IN 


BUFFER IN (i,p) (a,b) 


10 . 3.2 

BUFFER OUT 


i logical unit (1 to 55) 


P 


direction and mode; 

p = 0 forward read, 

1 forward read, 

2 reverse read, 

3 reverse read. 


BCD mode 
binary mode 
BCD mode 
binary mode 


a first variable of the block to be transmitted 


b last variable of the block to be transmitted 


This statement transmits one physical record of information in mode p from 
unit i to storage locations a through b. If the tape being read was written by a 
BCD write statement, only one physical record (136 characters or less) is 
read. Provision must be made for the count word which is buffered in with the 
data written with binary write statements. When p = 2 or 3, the record is 
read in reverse and the words stored from b to a. 


When BUFFER IN requests transmission of more words than are on the record, 
the words are stored from a to k, where k is less than b and contains the last 
word on the record, regardless of the direction of the read. 

A magnetic tape written in binary mode must be read in odd parity; a tape 
written in BCD mode must be read in even parity. 

The first word address (a) must be less than or equal to the last word 
address (b) or the job is terminated. 


BUFFER OUT (i,p) (a,b) 

i logical unit (1 to 55) 

p 0 BCD mode 

1 binary mode 

a first variable of block to be transmitted 
b last variable of block to be transmitted 

The statement transmits information from storage locations a through b and 
writes one physical record on logical unit i in mode p. The physical record 
contains all the words from a to b. Attempting to reverse BUFFER OUT by 
using p = 2 or 3 causes a diagnostic. 
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BUFFERED WRITE: BINARY OR BCD 
BUFFER OUT (i,p) (A, B) 



i logical unit # 
p recording mode 
o even-BGD 
1 odd binary 
A first word 
B last word 


WRITE k WORDS 
[binary cq: BCD] 
ON UNIT i 



MAGNETIC TAPE 






10.4 

PARTIAL RECORD 


10.5 

TAPE HANDLING 
STATEMENTS 


The first word address (a) must be less than or equal to the last word address 
(b) or the job is terminated. 


After a BCD or binary read, the tape always moves to the next logical record; 
after a BUFFER IN statement, the tape moves to the next physical record even 
though the entire record may not have been transmitted. Consequently, the 
next READ or BUFFER IN statement does not read the remainder of the record. 
For a reverse BUFFER IN, the tape moves to the beginning of the same physical 
record. 

Example: 



10 characters 
transmitted 

110 characters 
not transmitted 


120 characters 
transmitted 


When a REWIND or a BACKSPACE is the next I/O operation after a write 
operation, the FORTRAN I/O routine writes an end-of-file, backspaces over 
it, and then executes the command. 

The logical unit number, i, is an integer variable or an integer constant. 
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10 . 5.1 

REWIND 


REWIND i 


Rewinds the magnetic tape mounted on unit i (1 to 55) to the load point. When 
the tape is already rewound, the statement acts as a do-nothing statement. 


10 . 5.2 

BACKSPACE BACKSPACE i 

Backspaces the magnetic tape mounted on unit i (1 to 55, 60, 61, or 62) one 
logical record. (A logical record is a physical record except for tapes written 
by a WRITE (1) list or WRITE tape i, list statement.) When the tape is already 
at the load point (rewoimd) BACKSPACE i acts as a do-nothing statement. 


10 . 5.3 

ENDFILE ENDFILE i 

Writes an end-of-file on the magnetic tape mounted on unit i (1-55). A diagnos¬ 
tic is provided if i is not a magnetic tape unit. 


10.6 

STATUS CHECKING The FORTRAN library contains functions and subroutines that check status 
after I/O operations. 

All parameters must be type integer. 

EOFCK and lOCHK are used with read/write l/O control statements. When 
they reference buffered units, the job terminates abnormally. 


10.6.1 

END-OF-FILE CHECK subroutine EOFCK (i, j) 
function EOFCKF (i) 

Either subprogram checks the status of the previous I/O request on logical 
unit i. If an end-of-file was encountered while trying to read, the subrou¬ 
tine stores a one in variable j; the function returns a one (in the A register) to 
the calling statement. A two is stored or returned if the condition did not 
occur. 
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10 . 6.2 

PARITY CHECK 


10 . 6.3 

UNIT STATUS TEST 


10 . 6.4 

LENGTH TEST 


subroutine lOCHK (i, j) 
function lOCHKF (i) 

Either subprogram checks the status of the previous 1/O request on logical 
miit i to determine if a parity error has occurred. When an error has occurred, 
the subroutine stores a one in variable j; the function returns a one (in the A 
register) to the calling statement. A two is returned when no parity error has 
occurred. 


subroutine UNITST (i,j) 
function UNITSTF (i) 

Either subprogram checks the status of the last buffer operation on logical 
unit i. For the subroutine, a value is stored in j; for the function, a value is 

returned in the A register where it is used by the calling statement. The value 

is determined accordingly: 

j = 1 if the previous buffer operation is not complete. 

2 if the buffer operation is complete with no errors. 

3 if the buffer operation is complete, but an end-of-file has been 

sensed. 

4 if the buffer operation is complete, but a parity error occurred. 


function LENGTHF (i) 

Determines the number of words transferred during the last BUFFER IN opera¬ 
tion on unit i. A unit status test must precede a length test. Call UNITST or 
UNITSTF to insure that the last operation on the unit is complete prior to 
calling LENGTHF. The number of words is returned in the A register for use 
by the calling statement. 
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Example: 


J = 1 

BUFFER IN (10,0) (A,Z) 


4 

5 


GO TO (5, 6, 7, 8), 
GO TO (50, 4), J 


UNITSTF (10) 


50 


computation not involving 
information in locations A-Z 


Set flag 1 

Initiate buffered read for 
logical unit 10, even parity. 
The first word of the block 
is A; the last Z 
Check transmission status 
Read not finished: perform 
other calculations at 
statement 50 


|J = 2 


GO TO 4 

7 KERR = LENGTHF (10) 


70 

8 


WRITE (21, 70) 

FORMAT (12H EOF UNIT 10) 
GO TO 200 

KERR = LENGTHF (10) 


80 

200 

6 


WRITE (21,80) 

FORMAT (12HPARITY ERROR) 

REWIND 10 

STOP 

CONTINUE 


Calculations complete; 
increase flag by 1 

KERR will contain number 
of words read 
Error message 
End-of-file error 

KERR will contain number 
of words read 


BUFFERED transmission 
complete; continue 
program 
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10 . 6.5 

ERROR PROCEDURES 
FOR TAPES 


10.7 

INTERNAL 

TRANSMISSION 


Attempting to read past an EOF without checking for EOF causes job termina¬ 
tion. For BCD or binary operations, EOFCK or EOFCKF sense the condition; 
for BUFFER IN, UNITST or UNITSTF sense the condition, 

EOF should be checked before parity. For read parity errors, the input routine 
retries the read three times. If the error persists, a diagnostic is provided 
and control returns to the program. 

On write parity errors, the output routine attempts to rewrite the record by 
backspacing over the last physical record, erasing 6 inches of tape, and writing. 
For BCD or binary operations, lOCHK or lOCHKF sense for parity errors; for 
BUFFER IN, UNITST or UNITSTF check parity. 


The encode/decode statements are comparable to the BCD write/read 
statements with the essential difference that no peripheral equipment is used in 
the data transfer. Information is transferred under format specifications from 
one area of storage to another. 

in the following descriptions: 

n is a FORMAT statement number, a variable identifier or a formal 
parameter representing the associated format list. 

list is the input/output list. 

V is a variable identifier or an array identifier that supplies the 

starting location of the records. The identifier may be subscripted. 

c is an unsigned integer or an integer variable (simple or subscripted) 
specifying the length of a record, c may be an arbitrary number of 
BCD characters. The first record starts with the leftmost charac¬ 
ter of the location specified by v and contains c BCD characters. 
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10 . 7.1 

ENCODE 


10 . 7.2 

DECODE 


ENCODE (c, n, v) list 

Converts the information in the list according to format list n and stores it in 
locations starting at v, c BCD characters per record. If the format list 
attempts to convert more than c characters per record, a diagnostic occurs. 
If the number of characters converted by the format list is less than c, the 
remainder of the record is filled with blanks. 

When c is not a multiple of 4, the last record does not fill a computer word; 
the remainder of the word is blank-filled. 


DECODE (c, n, v) list 

Converts and edits information from records consisting of c consecutive BCD 
characters (starting at address v) according to format list n and stores it in 
the I/O list. When the format list specifies more than c characters per record, 
a diagnostic is provided. If DECODE attempts to process a character illegal 
under a given conversion specification, a diagnostic occurs. When fewer than 
c characters are specified, the remainder of the word is ignored. 

Examples: 

1) The following illustrates a method of packing partial contents of two words 
into one word. Information is stored in core as follows: 

LOC(l) contains SSxx 


LOC(6) " xxNN 
To form SSNN in NAME: 


DECODE (4,1,LOG(6)) TEMP 

1 FORMAT (2X,A2) 

ENCODE (4,2,NAME) LOC(l),TEMP 

2 FORMAT (2A2) 


The DECODE statement places NN, the last, two BCD characters of 
LOC(6) into the two leftmost character positions of TEMP, the temporary 
storage. The ENCODE statement packs SS, the first two characters of 
LOC (1) into the left of NAME and packs NN to the right of SS. 
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By using the R specification, the program can be shortened to: 


|eNCODE (4,1,NAME) LOC(l) ,L0C(6) 
FORMAT (A2,R2) 


2) DECODE can be used to calculate a field definition in a format specification 
during program execution. At some point in the program, m is to be spec¬ 
ified in the statement FORMAT (2A8,Im). m is subject to the restriction 
2< m >9, 


5 7 


DIMENSION JSPEC (2) 


1 

100 


IF (M .LT. 10 .AND. M .GT. 1) 1, 
ENCODE (8,100,JSPEC) M 
FORMAT (6H(2A8,I,I1,1H)) 


2 


WRITE (10,JSPEC),A,B,J 


The field definition, M, is tested to insure that it is within limits. If not, 
control goes to statement 2 which may be an error routine. When M is 
within limits, ENCODE prepares a format list including m in JSPEC. The 
6H format transmits (2A8,I to the left of JSPEC; II packs m in the next 
character position; IH) closes the list with a right parenthesis. After 
ENCODE, JSPEC contains (2A8,Im). 

A write statement referring to format JSPEC writes A and B under spec¬ 
ification A8, and the quantity J under specification Im, where m may vary 
from 2 to 9. 



3) ENCODE can be used to re-arrange and change information in a record. 






10 

11 


I = 3HBCD 
lA = IHl 

ENCODE (8,10,B)I,IA,I 
FORMAT (A2,A1,R2) 
WRITE (10,11)B 
FORMAT (020) 


I contains 22232460 
lA 01606060 

A2 selects 2223 from I and packs it in the left of B. 

A1 selects 01 from lA and packs it to the r^ht of 2223. 

R2 selects 2460 from I and packs it to the right of 222301. 

Because the format list converts fewer than c characters per record, 3 
blanks are placed in the remainder of the record. 

After the ENCODE, B contains 2223012460606060 = BClD^^y^y^;^ 

Printout: 

AAAA 2223012460606060 (the octal equivalent of BClD/^/y^/y^) 
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PROGRAM OPERATION 


11 


n.i 

CONTROL 


n.1.1 

JOB CARD 


The SCOPE-32 loader is called into storage by the executive routine whenever 
programs are to be loaded. The loader: 

Loads relocatable binary information 
Links independently compiled subprograms 

Loads and links library routines referenced by a loaded program 
Selects and loads required 1/O drivers from the library tape 
Assigns equipment to logical units 

A main program may be written with or without references to subprograms. 

Tn all naRPR. firat RtatAmp>n+ nf tVio TYlQln ■nT*r\rrT» 0 'm ei4- o TD A T\/r 

—- CU.XJI jLxxwioi> K/cj ct x" ±vv-/\jrx\nj.VJ. 

statement. 


CARDS Compilation and execution of FORTRAN programs under SCOPE control re¬ 
quires SCOPE control cards, identifiable by a 7,9 punch in column 1. The 
name of the control statement followed by any necessary parameters begins 
in column 2. Control card name and parameters must be contained on a single 
80-column card. 

Control statements may be read in sequence from the standard input unit, or 
may be serially presented by the operator. The operator enters them through 
the comment-from-operator unit - usually the console typewriter. 


FORTRAN jobs submitted for processing under SCOPE require a JOB State¬ 
ment that supplies information to the installation accounting routine, identifies 
the programmer, and sets a job-processing time limit. The JOB caid must be 
immediately preceded by a SEQUENCE statement. JOB-card format is: 


4 nI 

JOB,c,i,t, or, ND 
^ NP 
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c charge number, 0-8 characters 

i programmer identification; any number of characters although the 

accounting routine uses only the first four. 

t time limit in minutes for the entire job, including idle time for 

setup as well as running time. The time is interpreted by the 
installation accounting routine. 

NS indicates a single, non-stacked job. Use of NS implies NP as well. 
Prior to execution of the job, all system tape units are rewound and 
unloaded making all l/O units available to the programmer—^with 
no system unit protection. 

NP suppresses system I/O protection. To prevent unintentionally 

writing on system units, do not use NP when executing FORTRAN 
programs. 

ND inhibits post-execution dump. If this field is blank or omitted, a 
dump will be taken. 

The c, i, and t fields are fixed; they can be blank except for commas. The 
NS/NP field and the ND field are interchangeable (free field), and may be 
omitted. 

Example: 


1 5 


7 

9 JOB, 

c 

1964,CW,20,ND 


11.1.2 

FORTRAN 

CONTROL CARD FORTRAN is a SCOPE library program; to be called, loaded, and executed, 

it requires a SCOPE library control card. 



FORTRAN, L,A,X,P 


L list source language on standard output unit 
A list assembly language on standard output unit 
X write load-and-go on standard load-and-go unit 

P punch relocatable binary deck on standard punch unit 
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Parameters can be interchanged or omitted. A parameter can be one or more 
characters in length; only the first character - L, A, X, or P - is significant. 

Example: 


1 5 


7 

gFORT 

R 

AN,LIST,ASSEMBLY,XECUT,PUNCH 


The assembly listing and source language listing will be on the standard output 
unit. The load-and-go and the punch output will be processed on standard imits. 


n.1.3 
LOAD CARD 


This statement loads binary object subprograms into storage. 

/t 

I 9L0AD,U2,U2,U3 

Uj identify the logical unit numbers, 1-56, previously defined by 
an EQUIP statement (section 11.2) for this run. If logical units 
are not specified, the loader attempts to load from logical unit 
60, standard input (INP). No more than three units may be 
specified. 

An end-of-file terminates loading from each unit. SCOPE loads from the units 
in the order specified and then loads binary information from INP if any exists. 

With or without a LOAD statement, unless preceded by a control statement 
such as XFER (3200 SCOPE COMPASS Reference Manual), a binary object 
program on the standard input unit is loaded into memory when encountered by 
the monitor system. 

Example: 


1 5 


7 

^LOAD 

y 

9 

42 
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11.1.4 
RUN CARD 


11.1.5 
FINIS CARD 


The RUN statement initiates program execution by transferring control to the 
object program in memory. It is required for all program runs and follows the 
relocatable binary deck if the program is on INP or the LOAD statement if the 
program is on an input tape other than INP. 



RUN,t,NM 


t is the execution time limit in minutes (0 to 999) used by the account¬ 
ing routine. If t is omitted, the accounting routine assumes blanks. 

NM suppresses the memory map that would otherwise be written on the 
standard output unit (OUT). The map is a list of memory alloca¬ 
tions of a loaded program prior to execution. When NM is omitted, 
a map is prepared. 

Example: 


1 5 


7 

gRUN, 

2 



The estimated execution time is 2 minutes; a memory map will be prepared. 


The FINIS card notifies the compiler that there are no more decks to be com¬ 
piled. The word FINIS must begin in column 10: 

1 _ 10 _ 

/ FINIS 
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11.2 

equipment 

ASSIGNMENT 


SCOPE assigns physical equipment at run time. All references to I/O units 
are by logical unit numbers. The programmer must declare logical unit num¬ 
bers on EQUIP cards placed after the JOB card or before the RUN card. 

Hardware Definition 




7EQUIP,xx=hh 

y 


This statement assigns logical unit xx to available equipment of hardware type 
hh. A diagnostic is provided if specified hardware is unavailable. 


hh= MT 

Magnetic tape 

CR 

Card Reader 

PR 

Printer 

CP 

Card Punch 

TY 

Console Typewriter 

TS 

Channel Typewriter 


Equating Units 




7 

9 


EQUIP, xx^=xx 


2 


Once defined, a logical unit may be equated with others. The second statement 
equates logical units xx^. Specifying a system unit (56-63) on the left side ter¬ 
minates a job. XX2 may be a system unit. 

Example: 


I_5_7 

gEQUIP, 

gEQUIP, 


40=CR 

10=40 
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Physical Unit Assignment 


|/gEQUIP, xx=hhCcEeUuu 

XX logical unit number 
hh hardware type mnemonic 

c channel number 0-7, prefixed by C 

e equipment number (controller) prefixed by E 
uu unit number (device), prefixed by U 

The table illustrates the variety of formats permitted for this statement. An 
X indicates use of a parameter; a blank indicates its omission. 


hh 

Cc 

Ee 


X 




X 

X 



X 

X 

X 


X 

X 

X 

X 


X 

X 

X 


X 

X 



Specification of a non-existent channel, equipment, or unit number causes 
job termination accompanied by a diagnostic. 

Example: 


1 5 


7 

gEQUl 

P 

,16=MrC0E0U03 





















n.2.2 

LOGICAL UNITS 


PROGRAMMER UNITS: 


Logical units 1 through 49, retained throughout each job for reference by the 
programmer. 


SCRATCH UNITS: 

Logical units 50 through 55, held for temporary use during execution of each 
program. These units are released after execution of each program. 


SYSTEM UNITS: 

System units (logical units 56-63) are standard units defined by SCOPE. The 
physical assignments of units differ according to the installation. 

unit 56 Load-and-go (LGO) 

Binary information may be stored here prior to loading and executing. 

unit 57 Accounting Record (ACC) 

Job statements and total time used by the jobs are recorded on this unit. 
Each installation must provide the accounting routine. 

unit 58 Input Comment (CFO) 

Comments from the operator to the monitor system are made on this unit. 

unit 59 Output Comment (CTO) 

Statements from the monitor system to the operator are made on this unit. 
This imit may be used by the programmer for output. 

unit 60 Standard Input (INP) 

Jobs to be processed by SCOPE are placed on this unit by the operator. 

imit 61 Standard Output (OUT) 

Accounting information, diagnostics, dumps, and job control statements 
are recorded on this unit in BCD mode. The programmer normally uses 
this unit for off-line listable output. 

unit 62 Standard Punch Output (PUN) 

Output for punching is recorded on this unit. All records are written in 
binary mode unless otherwise specified. 
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n.2.3 

EQUIPMENT 

REQUIREMENTS 


n.3 

DECK STRUCTURE 


unit 63 SCOPE Library (LIB) 

The SCOPE library contains the monitor system and all of the programs 
and subprograms which operate under the control of SCOPE; such as, 
FORTRAN, COMPASS, COBOL. 


The FORTRAN jobs require a minimum system consisting of: 

1 input \mit (card reader) 

1 output unit (printer) 

3 magnetic tapes 

This configuration will compile and execute a job containing single or multiple 
subprograms. During compilation, the system employs: 

LU55 Scratch 

LU56 Load-and-go and scratch 
LU63 SCOPE Library 


The examples illustrate deck arrangements for compilation and execution of 
FORTRAN programs and subprograms. 

COMPILATION ONLY 


/ FINIS 
/ END 


/ PROGRAM MAIN 

^7foRTRAN,L,A 


/^JOB,42567 ,CEW,15 
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EXECUTION ONLY 


Execute directly from the standard input unit: 



Execute time does not include load time. For this example, execution 
time limit is 5 minutes; job limit is 15 minutes. 

Execute from programmer unit number 49 in addition to the standard 
input unit: 
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COMPILATION OF FORTRAN MAIN PROGRAM WITH SUBPROGRAMS 




















J? ORTJblAN PROGRAM WITH COMPASS SUBPROGRAM 
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APPENDIX SECTION 



CHARACTER CODES 


A 


Source 

Language 

Character 

BCD 

(Internal 

only)* 

Punch position 
in a Hollerith 

Card Column 

Source 

Language 

Character 

BCD 
(Internal 
only) * 

Punch position 
in a Hollerith 
Card Column 

A 

21 

12-1 

Y 

70 

0-8 

B 

22 

12-2 

Z 

71 

0-9 

C 

23 

12-3 

0 

00 

0 

D 

24 

12-4 

1 

01 

1 

E 

25 

12-5 

2 

02 

2 

F 

26 

12-6 

3 

03 

3 

G 

27 

12-7 

4 

04 

4 

H 

30 

12-8 

5 

05 

5 

I 

31 

12-9 

6 

06 

6 

J 

41 

11-1 

7 

07 

7 

K 

42 

11-2 

8 

10 

8 

L 

43 

11-3 

9 

11 

9 

M 

44 

11-4 

/ 

61 

0-1 

N 

45 

11-5 

+ 

20 

12 

O 

46 

11-6 

- 

40 

11 

P 

47 

11-7 

blank 

60 

space 

Q 

50 

11-8 


33 

12-8-3 

R 

51 

11-9 

) 

34 

12-8-4 

S 

62 

0-2 

$ 

53 

11-8-3 

T 

63 

0-3 

* 

54 

11-8-4 

U 

64 

0-4 

> 

73 

0-8-3 

V 

65 

0-5 

( 

74 

0-8-4 

W 

66 

0-6 

= 

13 

8-3 

X 

67 

0-7 


14 

8-4 


*Magnetic Tape Codes same as 1604. 
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STATEMENTS 


B 


Subprogram Statements 


Entry Points 

PROGRAM name 

N* 


SUBROUTINE name 

N 


SUBROUTINE name (p^, P„ ,... , P ) 

■L ^ H 

N 


FUNCTION name (p. ,p„.p ) 

1 z n 

N 


ENTRY name 

N 

Inter-subroutine 

EXTERNAL name, ,name„,.. = ,name 
12 n 

N 

Transfer Statements 

GALL name (c,, c„,... , c ) 

12 n 

E 


RETURN 

E 


Data Declaration and Storage Allocation 




Type Declaration 

REAL list 


N 


INTEGER list 


N 


CHARACTER list 


N 


TYPE other (w) list 


N 

Storage Allocations 

DIMENSION , Sg), (s^, s^, s^),... 

N 


COMMON list 


N 


COMMON/DATA/list 


N 


EQUIVALENCE (a^, b^,.. 

•)’(^2 > ^2’’* * ^' 

. N 


DATA (i =list), (i„=list).. 

J. ^ 

• 

N 


DATA (i(j,k, l,)=list) 


N 


DATA (((i(I,J),I=i^,y,J= 

=m^, m2)=list) 

N 


*N Non-executable; E Executable 
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Symbol Manipulation, Control and I/O 



Replacement 

V = e 

E 


r =r =...r =r =a 
n n-1 2 1 

E 

Intra-program Transfers 

GO TO n 

E 


GO TO (n,,... , n ), e 

1 m' 

E 


IF (e) 

E 


IF a) n^,n^ 

E 

Loop Control 

DO n 

E 

Miscellaneous Program Controls 

CONTINUE 

E 


PAUSE; PAUSE n 

E 


STOP: STOP n 

E 

1/0 Format 

FORMAT (spec^, spec^...) 

N 

l/O Control Statements 

READ (i,n) list 

E 


WRITE (i,n) list 

E 


READ n, list 

E 


READ (i) list 

E 


READ INPUT TAPE i,n,list 

E 


READ TAPE i,list 

E 


WRITE OUTPUT TAPE i,n,list 

E 


WRITE TAPE i,list 

E 


WRITE (i) list 

E 


BUFFER IN (i,p)(a,b) 

E 


BUFFER OUT (i,p)(a,b) 

E 


PRINT n,list 

E 


PUNCH n,list 

E 
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l/O Tap© Handling ENDFILE i E 

REWIKD i E 

BACKSPACE i E 

Internal Data Manipulation ENCODE (c,n,v/) list E 

DECODE (c,n,w) list E 

Program and Subroutine Termination 

END N/E 
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CALLING SEQUENCES 


C 


MIXED MODE The form of the external call is: 

RTJ QIQ op t^tg 

77 loc parameter word 

op two BCD characters representing operation to be performed: 


AD 

add 

MU 

multiply 

SB 

subtract 

DV 

divide 

ST 

store 

EX 

exponentiate 


t^ single BCD character representing type of value in accumulator 

t single BCD character representing type of operand value 

t and t may be: I integer 
R real 
X character 

loc address of operand 

If the operand is an element of an array, the parameter word indicates the 
index register that contains the increment value to obtain the proper element. 
If the array is non-character, any index register may be used. For a char¬ 
acter array, the index register is: 

B2 for add, subtract, and store operations 
B1 for all other operations 

The following routines are implemented for mixed mode: 


QIQEXRR 

real 

** 

real 

QIQEXRI 

real 

** 

integer 

QIQEXIR 

integer 

** real 

QIQEXII 

integer 


integer 

QIQADIR 

integer 

+ 

real 

QIQADXR 

character 

+ 

real 

QIQADRI 

real 

+ 

integer 

QIQADRX 

real 

+ 

character 

QIQSBIR 

integer 

- 

real 

QIQSBXR 

character 

- 

real 

QIQSBRI 

real 

- 

integer 

QIQSBRX 

real 

- 

character 
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QlQMUm 

integer 

* real 

QIQMURI 

real 

* integer 

QIQDVIR 

integer 

/ real 

QIQDVRI 

real 

/ integer 

QIQSTXR 

convert 

character to real and store 

QIQSTRI 

convert 

real to integer and store 

QIQSTRX 

convert 

real to character and store 

QIQSTIR 

convert 

integer to real and store 


TYPE CHARACTER The form of the external call is the same as for mixed mode arithmetic. The 
operations represented by op are: 

MU multiply 
DV divide 
EX exponentiate 

The address of the operand value may be a 17-bit address. 

Example: 


1 5 


7 


1 

CHARACTER L, M, N, P 

L = M*N+P 


The compiler generates a call to an external routine that performs the 
multiplication. (Operand M is in the A register when the return jump is 
executed.) 

RTJ QIQMUXX 
77 N 

To multiply character variables, the user must provide a COMPASS 
routine that has QIQMUXX as its entry point. 
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Example: 


1 5 


7 



CHARACTER A, C 

C = A/B 


The compiler generates a call to an external routine that performs the 
division. (Operand A is in the A register when the return jump is executed.) 

RTJ QIQDVXR 
77 B 

To divide character variables, the user must supply the external routine. 


TYPE OTHER 


The form of the external call is: 


RTJ nnn op t^ t^ 


77 loc 

parameter word 


nnn three BCD characters representing the type of operation. 

The first character is the first letter of the non-standard 
name (C for complex). The second character is either the 
second letter of the non-standard name or a period. The 
third character is always a period. 

op two BCD characters representing operation to be performed. 


LD 

load 

AD 

add 

LN 

load negative 

SB 

subtract 

ST 

store 

MU 

multiply 

CM 

complement 

DV 

divide 



EX 

ejqx^nentiate 


represent the accumulator and operand values: 

R real 
I integer 
X character 
O other 

The parameter word serves the same purpose as it does in mixed mode. 


t and t 

X ^ 
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STANDARD 

SUBPROGRAM 

CALLING 

SEQUENCE 


The external call for complement is not followed by a parameter word. The 
return is to the instruction following the RTJ instruction. 


Example: 


1 5 


7 



TYPE COMPLEX (4) A,B,C 

INTEGER D 

A = B+C*D 


The compiler generates the following calls to external routines, which 


must be 

supplied by the user. 

RTJ 

CO. LDOO 

routine to load C 

77 

C 


RTJ 

CO. MUOI 

routine to multiply 

77 

D 


RTJ 

CO. ADOO 

routine to add B 

77 

B 


RTJ 

CO. STOO 

routine to store 

77 

A 

result in A 


The standard calling sequence recognized by FORTRAN subroutines and func¬ 
tions is: 

RTJ name 
77 L(p^) 


77 L(p ) 

n 

The subprogram being referenced is identified by name. L(pj) is the address 
of the i^^ parameter. If name is a FORTRAN subprogram, it must appear in a 
SUBROUTINE or FUNCTION statement as 

SUBROUTINE name (Px,... , p^j) 
or 

FUNCTION name (p^,... ,Pj^) 

A FORTRAN program may reference a COMPASS subprogram by a function 
reference or subroutine call which produces the above calling sequence. 
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Example: 


CALL NAME (pi,...,Pj^) 

compiles to: RTJ NAME 

77 L(Pi) 

77 L(Pn) 

FORTRAN produces code that saves and restores contents of index registers 
for subroutines and functions. 
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DIAGNOSTICS 


D 


COMPILATION 

At the completion of compilation of each subprogram, any errors encountered during compilation are 
indicated on the standard output unit. A diagnostic in one of the following forms is printed with the 
error message. 

ERROR TYPE xxxx DETECTED AT n STATEMENTS BEYOND NO. m 
ERROR TYPE xxxx DETECTED AT STATEMENT m 


xxxx 4-digit error code 

m a source statement label, or 0- the first statement of the subprogram 

Example; 

ERROR TYPE 0156 DETECTED AT 13 STATEMENTS BEYOND STATEMENT NO. 0 
COMMON NAME DOES NOT START WITH AN ALPHABETIC CHARACTER 

Error messages are informative (I), destructive (D), or fatal (F). 

A type I error produces an informative message, only. The erroneous statement is compiled and 
the program is executed. 

A destructive error prevents the statement from being compiled. Compilation resumes with the 
next statement but execution is inhibited. 

Detection of a fatal error in a statement causes immediate termination of compilation of the program 
or subprogram. Compilation resumes with the next subprogram but the compiled programs are not 
executed. 
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Error 

Code 

Message 

Type 

0000 

PROGRAM TOO LARGE FOR COMPILER TABLES. 

SEGMENT AND RE-COMPILE 

F 

0001 

FIRST STATEMENT NOT PROGRAM, SUBROUTINE, OR FUNCTION-- 
ASSUME PROGRAM JOB 

I 

0002 

PROGRAM FORMAT ERROR—ASSUME PROGRAM JOB 

I 

0003 

PROGRAM NAME DOES NOT START WITH AN ALPHABETIC 

CHARACTER—ASSUME PROGRAM JOB 

I 

0004 

PROGRAM STATEMENT OUT OF ORDER 

I 

0005 

LABELED DECLARATIVE STATEMENT 

I 

0010 

FUNCTION OR SUBROUTINE FORMAT ERROR 

D 

0011 

NO FORMAL PARAMETERS IN FUNCTION STATEMENT 

D 

0012 

FUNCTION NAME DOES NOT START WITH AN ALPHABETIC CHARACTER 

D 

0013 

FORMAL PARAMETER DOES NOT START WITH AN ALPHABETIC 

CHARACTER 

D 

0014 

SUBROUTINE STATEMENT OUT OF ORDER 

D 

0015 

MORE THAN 63 FORMAL PARAMETERS 

D 

0020 

SUBROUTINE FORMAT ERROR 

D 

0021 

SUBROUTINE NAME DOES NOT START WITH AN 

ALPHABETIC CHARACTER 

D 

0022 

FUNCTION STATEMENT OUT OF ORDER 

D 

0030 

DIMENSION FORMAT ERROR 

F 

0031 

ILLEGAL USE OF NAME IN DIMENSION 

STATEMENT 

F 

0032 

DIMENSION NAME DOES NOT START WITH AN 

ALPHABETIC CHARACTER 

F 

0033 

SUBSCRIPT IS NOT AN INTEGER CONSTANT 

LESS THAN 32768 

F 

0034 

FORMAT ERROR IN DIMENSIONING 

F 

0035 

MORE THAN THREE SUBSCRIPTS 

F 
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0130 

liX'i'EKNAL FORMAT ERROR 

T\ 

U 

0131 

EXTERNAL NAME DOES NOT START WITH AN 

ALPHABETIC CHARACTER 

D 

0132 

ILLEGAL USE OF NAME IN EXTERNAL 

D 

0150 

LABELED COMMON FORMAT ERROR 

D 

0151 

COMMON FORMAT ERROR 

D 

0152 

illegal use of name in COMMON STATEMENT 

D 

0153 

MORE THAN THREE SUBSCRIPTS IN COMMON 

STATEMENT 

D 

0154 

IDENTIFIER APPEARS MORE THAN ONCE IN 

COMMON 

D 

0156 

COMMON NAME DOES NOT START WITH AN 

ALPHABETIC CHARACTER 

D 

0157 

TWO ELEMENTS IN A SET ARE IN COMMON 

D 

0160 

BLOCK NAME OTHER THAN DATA 

D 

0161 

MORE THAN 253 IDENTIFIERS IN LABELED 

COMMON OR IN BLANK COMMON 

D 

0240 

IDENTIFIER IN TYPE STATEMENT IS PROGRAM 

OR SUBROUTINE NAME 

D 

0241 

TYPE FORMAT ERROR 

D 

0242 

MORE THAN ONE TYPE OTHER 

D 

0243 

TYPE OTHER FORMAT ERROR 

D 

0244 

TYPE OTHER SIZE IS NOT AN INTEGER 

CONSTANT LESS THAN 32768 

D 

0245 

CONFLICT IN SIZE FOR TYPE OTHER STATEMENTS 

D 

0246 

ZERO WORD LENGTH FOR TYPE OTHER 

D 

0247 

TYPE OTHER NAME DOES NOT START WITH AN 

ALPHABETIC CHARACTER 

D 

0250 

NAME TO BE TYPED DOES NOT START WITH AN 

ALPHABETIC CHARACTER 

D 

0300 

EQUIVALENCE FORMAT ERROR 

D 

0301 

SUBSCRIPT FOR TYPE OTHER OR CHARACTER 

D 
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0302 

illegal use of name in equivalence 

D 

0304 

EQUIVALENCE RELATION ERHOR 

D 

0306 

NAME IN EQUIVALENCE DOES NOT START WITH 

AN ALPHABETIC CHARACTER 

D 

0400 

DATA FORMAT ERROR 

D 

0401 

SUBSCRIPT NOT INTEGER VARIABLE OR 
integer constant LESS THAN 32768 

D 

0402 

TOO MANY SUBSCRIPTS FOR DIMENSIONED 

VARIABLE 

D 

0403 

FIRST USE OF IDENTIFIER 

D 

0404 

NAME NOT SIMPLE OF DIMENSIONED VARIABLE 

AND IN LABELED COMMON 

D 

0405 

MORE THAN ONE CONSTANT IN DATA LIST FOR 

SIMPLE VARIABLE 

D 

0406 

SUBSCRIPT NOT INTEGER CONSTANT LESS THAN 

327 68 

D 

0407 

SUBSCRIPT EQUALS ZERO 

D 

0411 

DATA LIST TOO LONG 

D 

0412 

CONFLICT IN USE OF NAMES OR VARIABLES IN 

DO IMPLYING LOOP 

D 

0413 

N2 LESS THAN N1 — I = Nl, N2 

D 

0414 

ILLEGAL USE OF NAME IN DATA STATEMENT 

D 

0415 

FORMAT ERROR IN DATA LIST 

D 

0416 

ATTEMPTED NEST OR REPEATS IN DATA LIST 

D 

0420 

K = 0 USED FOR REPEAT 

D 

0421 

DATA LIST TOO SHORT 

I 

0422 

—APPEARS IN DATA LIST 

D 

0423 

-(APPEARS IN DATA LIST 

D 

0461 

MORE THAN 64 DECLARATION STATEMENTS 

F 

0477 

NO LABELED COMMON FOR DATA 

D 

0501 

PARENTHESES DO NOT MATCH. 

D 
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A c: AO 

0503 

0504 

0505 

0506 

0507 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0520 

0521 

0522 

1000 

1001 

1002 


LABEL ON CONTINUATION CARD OR COLUMN 
SIX OF LABELED STATEMENT MISPUNCHED 

STATEMENT LABEL NOT IN SPECIFIED FORMAT. 
ALPHABETIC CHARACTER, NON-INTEGER NUMBER, 

OR THE LABEL IS GREATER THAN 32767 

LABEL ON THIS STATEMENT HAS BEEN USED 
PREVIOUSLY. 

IDENTIFIER OF MORE THAN EIGHT CHARACTERS. 

IDENTIFIER NAME FOLLOWED BY PERIOD. 

POSSIBLE ERROR IN LOGICAL OPERATOR 
OR OMISSION OF SEPARATOR OR ARITHMETIC 
OPERATOR BEFORE A CONSTANT. 

STATEMENT TOO LONG FOR COMPILER TABLES. 

MORE THAN 20 CHARACTERS HAVE BEEN USED IN A 
NUMERIC CONSTANT FIELD. 

THE FIRST CONSTANT IN THIS STATEMENT IS 
INCORRECT 

I/O STATEMENT IS NOT CORRECT IN FORM. 

R OR H FIELD OF HOLLERITH CONSTANT 
NOT SPECIFIED CORRECTLY OR FIELD TOO 
LONG. 

CANNOT IDENTIFY STATEMENT TYPE. 

STATEMENT NAME MIS-SPELLED OR MISUSED 
OR AN EQUAL SIGN IS MISPLACED. 

SYNTAX ERROR IN FORMAT SPECIFICATION. 

CONSTANT IN STOP OR PAUSE STATEMENT 
SHOULD BE 5 OR LESS DIGITS. 

COMPUTED GOTO EXPRESSION CONTAINS A 
LOGICAL OPERATOR 

MULTIPLE REPLACEMENT STATEMENT CONTAINS 
LOGICAL OPERATOR 

FORMAT STATEMENT NOT LABELED 

COMPUTED GO TO LABEL LIST NOT IN CORRECT 
FORMAT. 

LABEL REFERENCED IN NOT AN INTEGER NUMBER. 

IF statement: without right PARENTHESIS 
AFTER EXPRESSION. 



1003 

INCORRECT NUMBER OF LABELS IN IF STATEMENT. 

D 

1004 

LABEL LIST IN INCORRECT FORMAT IN IF 

STATEMENT. 

D 

1005 

LABEL REFERENCE NOT INTEGER NUMBER OR NOT 

LESS THAN OR EQUAL TO 32767. 

D 

1006 

THIS STATEMENT IS TOO LONG TO FIT IN 

PI LIST. 

D 

1007 

LEFT SIDE OF REPLACEMENT STATEMENT NOT 

IN CORRECT FORMAT. 

D 

1010 

AN illegal form OF SUBSCRIPTING HAS 

OCCURRED IN THIS STATEMENT. 

D 

1011 

SUBSCRIPT IS NOT A SIMPLE INTEGER 

VARIABLE. 

D 

1012 

SUBSCRIPT MODIFIER IS NOT AN INTEGER 

CONSTANT OR IS GREATER THAN 32767. 

D 

1013 

DIMENSIONED VARIABLE WITH TOO MANY 

SUBSCRIPTS APPEARS IN THIS STATEMENT, 

D 

1014 

AN ILLEGAL FORM OF SUBSCRIPTING HAS 

OCCURRED IN THIS STATEMENT. 

D 

1015 

CONSTANT ADDEND OF A DIMENSIONED VARIABLE 

IS GREATER THAN 32767. 

D 

1016 

MORE THAN 63 INDEX FUNCTION GENERATED. 

D 

1017 

POSSIBLE MACHINE OR COMPILER ERROR. I-BIT 

SET IN FORMAT PARAMETER IDLIST ENTRY BUT 

NO DIMENSIONED VARIABLE IN IDLIST. 

D 

1020 

PROGRAM OR SUBROUTINE NAME MAY NOT APPEAR 

D 

1022 

INDEX FUNCTION MULTIPLIER GREATER THAN 

32767. 

D 

1024 

SUBROUTINE NAME IN CALL STATEMENT USED 

BEFORE AS A SIMPLE OR DIMENSIONED VARIABLE. 

D 

1025 

INCORRECT FORM OF PARAMETER LIST IN 

A CALL STATEMENT. 

D 

1026 

ENTRY STATEMENT USED BEFORE AS A SIMPLE 

OR DIMENSIONED VARIABLE. 

D 

1027 

ENTRY STATEMENT CANNOT APPEAR IN A MAIN 

PROGRAM. 

D 
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1030 

DO STATEMENTS NESTED MORE THAN 10 DEEP. 

D 

1031 

RUNNING INDEX OF A DO NOT A SIMPLE 

INTEGER VARIABLE. 

D 

1032 

EQUAL SIGN DOES NOT FOLLOW THE RUNNING 

INDEX OF A DO. 

D 

1033 

FIRST QUANTIFIER IN A DO NOT FOLLCWED 

BY A COMMA. 

D 

1034 

DO STATEMENT DOES NOT END AFTER THIRD 

QUANTIFIER. 

D 

1035 

QUANTIFIER IN DO STATEMENT IS NOT AN 

INTEGER CONSTANT OR SIMPLE INTEGER 

VARIABLE. 

D 

1036 

SECOND QUANTIFIER IN A DO STATEMENT NOT 

FOLLa\lED BY A COMMA OR END OF STATEMENT. 

D 

1037 

DO STATEMENT WHICH TERMINATES AT THIS 

STATEMENT NUMBER IS OUT OF ORDER. 

D 

1040 

ENTRY NAME USED ELSEWHERE IN THE PROGRAM. 

D 

1041 

AN ENTRY STATEMENT CANNOT BE LABELED. 

D 

1042 

ENTRY NAME USED ELSEWHERE IN PROGRAM. 

D 

1043 

AN ENTRY STATEMENT CANNOT APPEAR WITHIN 

A DO LOOP. 

D 

1044 

REFERENCE TO A STATEMENT LABEL OF ZERO 

IS ILLEGAL. 

D 

1046 

THE RUNNING INDEX IN A DO MAY BE CHANGED 

WITHIN THE LOOP. 

I 

1047 

THE UPPER LIMIT VARIABLE (M2) OF THE DO 

MAY BE CHANGED WITHIN THE LOOP. 

I 

1050 

DO INCREMENT VARIABLE (M3) MAY BE CHANGED 

WITHIN THE LOOP. 

I 

1052 

DO QUANTIFIER GREATER THAN 32767 

D 

1053 

DO INCREMENT (M3) IS ZERO. 

I 

1054 

ALL DECLARATIVE STATEMENTS MUST APPEAR 

BEFORE THE FIRST EXECUTIVE STATEMENT. 

D 

1055 

DO STATEMENTS MAY NOT TERMINATE ON A 

TRANSFER STATEMENT. 

D 
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1056 

FUNCTION SUBPROGRAM NAME NOT DEFINED. 

I 

1057 

THE DO STATEMENT THAT TERMINATES ON THIS 

LABEL IS NOT TERMINATED BEFORE END CARD. 

D 

1060 

LOGICAL OPERATORS MAY NOT APPEAR IN 

ACTUAL PARAMETERS. 

D 

1500 

INTEGER NUMBER GREATER THAN 2**23-1. 

D 

1510 

NO DECIMAL DIGITS PRECEDING OR FOLLOWING 

THE DECIMAL POINT. 

D 

1520 

ILLEGAL OCTAL CHARACTER 

D 

1530 

MORE THAN ONE DECIMAL POINT 

D 

1540 

THE REAL NUMBER HAS MORE THAN ELEVEN 

DIGITS OR HAS EXCEEDED 2**36-l IRRESPECTIVE 

OF THE DECIMAL POINT. 

D 

1550 

ILLEGAL CHARACTER IN EXPONENT OR EXPONENT 

TOO LARGE. 

D 

1560 

ILLEGAL DECIML CHARACTER 

D 

1570 

MORE THAN 8 OCTAL CHARACTERS IN STRING 

D 

2001 

NO REPLACEMENT VARIABLE IN LOGICAL 

REPLACEMENT STATEMENT. 

D 

2002 

NO REPLACEMENT OPERATOR IN LOGICAL 

REPLACEMENT STATEMENT. 

D 

2003 

LEFT PAREN MUST ENCLOSE LOGICAL IF 

D 

2004 

RIGHT PAREN MUST CLOSE LOGICAL IF 

D 

2005 

LOGICAL OR RELATIONAL OPERATOR 

OCCURRED WITHIN PARENTHESES 

D 

2006 

AN EXPRESSION MUST PRECEDE .AND., 

.OR., OR END OF STATEMENT 

D 

2007 

TWO CONSECUTIVE RELATIONAL OPERATORS 

D 

2010 

A LOGICAL OPERATOR MUST APPEAR BETWEEN 

TInJO NOTS 

D 

2011 

AN EXPRESSION M4Y NOT PRECEDE .NOT. 

D 

2012 

AN EXPRESSION MUST FOLLOW A RELATIONAL 

OPERATOR 

D 
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2013 

STATElfflNT LABEL USED IN LOGICAL IF IS 

UNDEFINED 

n 

2014 

MORE THAN 4096 LA BELS HAVE BEEN GENERATED 

IN A LOGICAL EXPRESSION 

D 

2500 

WRONG FORMAT OF I/O STATEMENT, 

I/O LIST NOT YET PROCESSED. 

D 

2501 

PARITY DESIGNATOR IN I/O STATEMENT MUST 

BE A SIMPLE integer VARIABLE OR 

NUMBER EQUAL TO 0 OR 1 

D 

2502 

FORMAT ERROR OF DO-IMPLYING INDEX. 

D 

2503 

THE PARAMETERS OF A DO-IMPLYING LOOP 

MUST BE UNSIGNED INTEGER CONSTANTS OR 

SIMPLE integer VARIABLES. 

D 

2504 

THE CONSTANT PARAMETERS OF A DO-IMPLYING 

LOOP MUST BE LESS THAN 32768. 

D 

2505 

UNIT NUMBER MUST BE A SIMPLE INTEGER 

VARIABLE OR INTEGER CONSTANT LESS THAN 64. 

D 

2506 

MORE THAN 145 LEFT PARENTHESES HAVE BEEN 

ENCOUNTERED IN AN I/O DATA LIST. REMOVE 

REDUNDANT PARENTHESES AND RESUBMIT. 

D 

2507 

TYPE OTHER VARIABLES MAY NOT APPEAR IN 

AN I/O DATA LIST. 

D 

2510 

A VARIABLE MUST PRECEDE THE DO-IMPLYING 

INDEX IN AN I/O DATA LIST. 

D 

2511 

THE RUNNING SUBSCRIPT IN A DO-IMPLYING 

LOOP MUST BE A SIMPLE INTEGER VARIABLE. 

D 

2512 

WRONG FORMAT OF I/O DATA LIST OR ILLEGAL 

ENTRY IN I/O DATA LIST. 

D 

2513 

illegal mode of I/O PARAMETER. 

D 

2700 

THE FORMAT STATEMENT REFERENCED DOES NOT 

APPEAR IN THE SOURCE PROGRAM. 

D 

3000 

FUNCTION NAME USED AS REPLACEMENT 

VARIABLE. 

D 

3001 

COM>iA APPEARS ON PARENTFJISES LEVEL ZERO 

D 

3002 

illegal use of actual parameter 

D 

3021 

OPERATOR MISSING IN ARITHMETIC EXPRESSION 

D 
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3026 / - APPEARS IN ARITHMETIC EXPRESSION D 

3060 FUNCTION TERMINATES ARITHMETIC EXPRESSION D 

3061 ILLEGAL USE OF FUNCTION IN ARITHMETIC D 

EXPRESSION 

3065 FUNCTION + APPEARS IN ARITHMETIC EXPRESSION D 

3066 FUNCTION - APPEARS IN ARITHMETIC EXPRESSION D 

3067 FUNCTION * APPEARS IN ARITHMETIC EXPRESSION D 

3070 FUNCTION / APPEARS IN ARITHMETIC EXPRESSION D 

3071 FUNCTION ** APPEARS IN ARITHMETIC EXPRESSION D 

3072 FUNCTION = APPEARS IN ARITHMETIC EXPRESSION D 

3112 CONSTANT = APPEARS IN ARITHMETIC EXPRESSION D 

3114 NUMBER ( APPEARS IN ARITHMETIC EXPRESSION D 

3120 + TERMINATES ARITHMETIC EXPRESSION D 

3125 + + APPEARS IN ARITHMETIC EXPRESSION D 

3126 + - APPEARS IN ARITHMETIC EXPRESSION D 

3127 + * APPEARS IN ARITHMETIC EXPRESSION D 

3130 + / APPEARS IN ARITHMETIC EXPRESSION D 

3131 + ** APPEARS IN ARITHMETIC EXPRESSION D 

3133 + , APPEARS IN ARITHMETIC EXPRESSION D 

3135 + ) APPEARS IN ARITHMETIC EXPRESSION D 

3140 - TERMINATES ARITHMETIC EXPRESSION D 

3145 - + APPEARS IN ARITHMETIC EXPRESSION D 

3146 - - APPEARS IN ARITHMETIC EXPRESSION D 

3147 = * APPEARS IN ARITHMETIC EXPRESSION D 

3150 - / APPEARS IN ARITHMETIC EXPRESSION D 

3151 - ** APPEARS IN ARITHMETIC EXPRESSION D 

3153 - , APPEARS IN ARITHMETIC EXPRESSION D 

3155 - ) APPEARS IN ARITHMETIC EXPRESSION D 
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3160 

3165 

3166 
3170 
3173 
3175 
3205 
3207 

3210 

3211 
3213 
3215 

3225 

3226 

3227 

3230 

3231 
3233 
3235 
3240 
3247 

3250 

3251 

3252 

3253 
3255 
3260 


* TERMINATES ARITHMETIC EXPRESSION 

* + APPEARS IN ARITHMETIC EXPRESSION 

* - APPEARS IN ARITHMETIC EXPRESSION 

* / APPEARS IN ARITHMETIC EXPRESSION 

* , APPEARS IN ARITHMETIC EXPRESSION 

* ) APPEARS IN ARITHMETIC EXPRESSION 
/ + APPEARS IN ARITHMETIC EXPRESSION 
/ - APPEARS IN ARITHMETIC EXPRESSION 
/ / APPEARS IN ARITHMETIC EXPRESSION 
/ ** APPEARS IN ARITHMETIC EXPRESSION 
/ , APPEARS IN ARITHMETIC EXPRESSION 
/ ) APPEARS IN ARITHMETIC EXPRESSION 
** + APPEARS IN ARITHMETIC EXPRESSION 
** - APPEARS IN ARITHMETIC EXPRESSION 
** * APPEARS IN ARITHMETIC EXPRESSION 
** / APPEARS IN ARITHMETIC EXPRESSION 

** ** appears in arithmetic expression 

** , APPEARS IN ARITHMETIC EXPRESSION 
** ) APPEARS IN ARITHMETIC EXPRESSION 
= TERMINATES ARITHMETIC EXPRESSION 
= * APPEARS IN ARITHMETIC EXPRESSION 
= / APPEARS IN ARITHMETIC EXPRESSION 
= ** APPEARS IN ARITHMETIC EXPRESSION 
= = APPEARS IN ARITHMETIC EXPRESSION 
= , APPEARS IN ARITHMETIC EXPRESSION 
= ) APPEARS IN ARITHMETIC EXPRESSION 
, TERMINATES ARITHMETIC EXPRESSION 


D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 
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3267 , * APPEARS IN ARITHMETIC EXPRESSION D 

3270 , / APPEARS IN ARITHMETIC EXPRESSION D 

3271 , ** APPEARS IN ARITHMETIC EXPRESSION D 

3272 , = APPEARS IN ARITHMETIC EXPRESSION D 

3273 , , APPEARS IN ARITHMETIC EXPRESSION D 

3275 , ) APPEARS IN ARITHMETIC EXPRESSION D 

3300 ( TERMINATES ARITHMETIC EXPRESSION D 

3307 ( * APPEARS IN ARITHMETIC EXPRESSION D 

3310 ( / APPEARS IN ARITHMETIC EXPRESSION D 

3311 ( ** APPEARS IN ARITHMETIC EXPRESSION D 

3312 ( = APPEARS IN ARITHMETIC EXPRESSION D 

3313 ( , APPEARS IN ARITHMETIC EXPRESSION D 

3315 ( ) APPEARS IN ARITHMETIC EXPRESSION D 

3334 ) ( APPEARS IN ARITHMETIC EXPRESSION D 

3500 STATEMENT NOT LABELED AND IS PRECEDED I 

BY A NON-RETURN TRANSFER. STATEMENT 

CAN NOT BE EXECUTED. 

3501 INCORRECT STATEMENT FORMAT D 

3502 N IS NOT AN INTEGER NUMBER IN A STOP OR D 

PAUSE 

3503 ENTRY STATEMENT CAN NOT BE LABELED D 

3504 STATEMENT LABEL REFERENCED IN UNDEFINED D 

3505 NO LEFT PAREN IN ARITHMETIC IF D 

3506 CALL STATEMENT MUST TERMINATE WITH A D 

RIGHT PAREN 

3507 NO EXPRESSION IN ARITHMETIC IF D 

3600 POSSIBLE MACHINE ERROR. RECOMPILE JOB. F 

5001 FORTRAN I/O ERROR REWIND REJECT LUN 55 F 

5002 FORTRAN I/O ERROR READ REJECT LUN 60 F 
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5004 FORTRAN I/O ERROR WRITE PJIJECT LUN 55 F 

5005 FORTRAN I/O ERROR WRITE REJECT LUN 56 F 

5006 FORTRAN I/O ERROR BINARY CARD LUN 60 F 

5007 FORTRAN I/O ERROR END OF FILE LUN 60 F 

5010 FORTRAN I/O ERROR END OF TAPE LUN 55 F 

5011 FORTRAN I/O ERROR WRITE ERROR LUN 55 F 

5012 . FORTRAN I/O ERROR END OF TAPE LUN 56 F 

5013 FORTRAN I/O ERROR WRITE ERROR LUN 56 F 

5014 FORTRAN I/O ERROR READ ERROR LUN 60 D 

5015 FORTRAN I/O ERROR READ ERROR LUN 55 F 

5016 FORTRAN I/O ERROR READ ERROR LUN 56 F 

5017 POSSIBLE MACHINE ERROR—ENDPI F 

5030 LABELED COMMON REQUIRES MORE THAN 32768 WORDS OF F 

STORAGE 

5031 NUMBERED COMMON REQUIRES MORE THAN 32768 WORDS OF F 

STORAGE 

5032 PROGRAM LENGTH EXCEEDS 32768. SEGMENT AND RECOMPILE F 


I/O DIAGNOSTICS 

The standard format used in printing the majority of diagnostics from the object time I/O routines 
is the following: 

ERROR IN rrrrrrrr CALLED FROM xxxxx z ... z 

n 

rrrrrrrr name of the routine in which the error occurred 

xxxxx address from which the routine was last called 

z,.. . z error message 

In 
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Message 


Description 


PARITY ERROR ON LU xx 


END OF TAPE ON LU xx 


LOST DATA ON LU xx 

ILLEGAL I/O ON LU xx 


UNCHECKED EOF ON LU xx 


A persistent parity error occurred on logical unit xx; 
execution continues. This condition can be sensed by 
using lOCHK or lOCHKF. 

An end of tape condition was sensed on logical unit xx. 

The unit is unloaded and the next READ or WRITE tape is 
mounted. Execution continues. 

A lost data condition was encountered on logical unit xx; 
the job will be terminated abnormally. 

An illegal l/O operation was requested on logical unit xx. 

a) Logical unit is not in the defined range for the 
particular I/O operation. 

b) SCOPE rejected the I/O request, such as reading 
from the printer or writing on the card reader, or 
attempting to write a tape which does not have a write 
enable ring. 

On the last read operation, an end of file was encountered 
on logical unit, xx and no check has been made. 


STANDARD REF TO BUFFER 
TAPE XX 


RECORD OVERFLOW LU xx 


LIMITS ON BUFFER I/O 
INCONSISTENT 


LIST EXCEEDS DATA 


SYNC ERROR 


A standard data transmission operation has been requested 
on logical unit xx where the previous operation was a 
buffer. 

A BCD read or write request calls for input or output 
of data outside of the defined record area. For BCD 
read or write, the record limit is 136 characters; for 
encode/decode, the record limit is c characters. 

The first word and last word addresses of the BUFFER 
in/buffer out statement do not comply with the rule 
that first word address must be less than or equal to 
last word address. 

The list of a binary read request called for more data 
than was in the logical record. 

During a binary tape read, an end of file was encountered 
in the middle of a logical record. Since this cannot be 
generated by the binary write routine, an error has 
occurred. 
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Message 


Description 


ILLEGAL CODE ON INPUT 


INTEGER INPUT GE 2**23 

EXPONENT OVERFLOW 

TOO MANY DECIMAL PTS 


An illegal character was encountered in the input field; 
for example, an 8 or 9 in an octal field or an alphanumeric 
character in a numeric field. 

An Iw input field contained a number exceeding the 
range of integer constants (greater than 

A calculation during conversion overflowed the limits 
of the floating point format. 

More than one decimal point encountered in an Ew.d or 
Fw. d input field. 


FORMAT STATEMENT DIAGNOSTICS 






J.V/X XXXC3UV 


FORMAT ERROR x - zzzzz 


X numeric error code 

zzzzz first word address of the format statement in which the error occurred. 
X Description 

1 Format list does not begin with a left parenthesis. 

2 Illegal repeat factor was encountered. 

a) repeat factor equals zero 

b) repeat factor is not an integer 

3 Unrecognizable format conversion; the format conversion is designated by 
a symbol other than E, F, I, A, R, O, H, X. 

4 Illegal field width or missing field width. 

a) field width equals zero 

b) no field width present 

c) illegal character in field width specification 

5 A number precedes a slash, comma, or right parenthesis. 

6 Parenthesis error 

a) repeat groups may not be nested 

b) a parenthetical grouping may not appear within a 
repeat group. 

7 Improper format of numeric field within format statement. 

a) more than one decimal point appears in the numeric field 

b) numeric value exceeds 2^^-l 
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OVERLAY-SEGMENT DIAGNOSTICS 


An error detected while calling or loading a segment or overlay causes the job to terminate 
abnormally. A message is written in the form; 

XX ERROR IN OVERLAY-SEGMENT 


Error Code 

XX 

Meaning 

EX 

Exit made from main program. 

MR 

Read error; or overlay or segment cannot be 
found. 

MT 

Logical imit (parameter i) is not a magnetic 
tape unit. 

01 

Parameter o in CALL OVERLAY is not 1 through 99. 

OM 

Overlay which called segment is not in core. 

OO 

Overlay called by overlay or segment. 

OS 

Segment called out of order. 

RD 

Read error from tape unit. 

SI 

Parameter s in CALL SEGMENT is not 1 through 99. 

SZ 

Parameter s in CALL OVERLAY is not zero. 
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INDEX 


Aw conversion 9-4, 9-15, 9-16 
Alphanumeric characters 1-3 
AND 3-16 
AND. 3-10 

Arithmetic, masking 3-16 
type character 3-7 
type integer 3-7 
type other 3-8 
type real 3-7 
mixed-mode 3-7 
Arithmetic elements 3-1 
Arithmetic expressions 3-1 
order of evaluation 3-2 
hierarchy of operators 3-2 
mixed-mode 3-8 
Arithmetic IF 6-2 
Arithmetic operators 3-1 
Arithmetic replacement statement 4-1 
Array - see Subscripted variable 
subscripts 2-4 
elements 2-5, 5-7 
structure 2-5 
dimensions 2-3, 5-2, 5-3 
transmission 9-1, 9-2 
Assembly language 
listing 1-1, 11-3 


BACKSPACE 10-11 
Buffer statements 

BUFFER IN (i,p) (list) 10-8 
BUFFER OUT (i,p) (list) 10-8 


CALL statement 7-2 

Calling program 7-2 

Carriage control 9-20, 9-26, 10-1 

CHARACTER 5-1 

Character codes A-1 

Character data, preset 5-10 

Character operations provided 3-7 


Character variables, dimensioned 5-3 
Character, explicit 5-1 
Characters, FORTRAN 1-3 
Check end-of-file 10-11 
Check parity 10-12 
Coding form 1-4 
Coding line 1 -3 
COMMON 5-4, 5-8 
blank 5-4 
labeled 5-4 
numbered 5-4 
length 5-5 

Orri -rri Ciri -i* 1 

Compilation diagnostics D-1 
Computed GO TO 6-1 
Constants 

integer 2-1 
octal 2-1 
real 2-2 
Hollerith 2-2 

word size and structure 2-1, 2-2 
CONTINUE 6-7 
Continuation lines 1-4 
Control statements 6-1 
Conversion specifications 9-5 

/DATA/ 5-4 
DATA 5-10 
Data, preset 5-10 

character preset 5-12 
Declarations, type 5-1 
DECODE (c,n,v) list 10-15 
Diagnostics 

compilation D-1 
execution D-13, D-15, D-16 
format D-15 
I/O D-13 

overlay segment D-16 
DIMENSION 5-2 
Divide fault 8-10 
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DO loop, execution 6-3 
properties 6-3 
transfer 6-7 
DO nests 6-5 


E conversion 9-5, 9-7 
Ew.d 9-5, 9-7 
Editing specifications 9-18 
Element of array 2-5 
location 2-5, 5-7 
Elements, arithmetic 3-1 
ENDCODE (c,n,v) list 10-15 
END 7-11 
ENDFILE 10-11 
End-of-file check 10-11 
ENTRY statement 7-10 
EOR 3-17 
.EQ. 3-12 
EQUIP card 11-5 
EQUIVALENCE 5-7 
Evaluation, arithmetic expression 3-2 
mixed mode 3-7 

Execution diagnostics D-13, D-15, D-16 
Explicit type definitions 5-1 
Exponent fault 8-10 

Expressions, general description of 1-2 
Expression, arithmetic 3-1, 4-1 
relational 3-12, 4-1 
EXTERNAL statement 7-9 


F conversion 9-9, 9-10 
Fw.d 9-9, 9-10 
FINIS card 11-4 

Fixed point — see Integer variable 
Floating point — see Real variable 
conversion 9-5, 9-6 
FORMAT statement 9-4 
diagnostics D-15 
specifications 9-5 
FORTDUMP 8-6 
FORTRAN card 1-5 
characters 1-3 
statements 1-2 
Function subprogram 7-5 
reference 7-6 


Function, library 8-1, 8-2 
masking 3-16 


.GE. 3-12 

GO TO, computed 6-1 
unconditional 6-1 


wH constants 2-2 
wH editing specification 9-20 
wX editing specifications 9-18 
Heading specification 9-20 
Hierarchy, arithmetic operations 3-2 
operand types 3-8 
type declarations 5-1 
Hollerith constants 2-2 


Iw conversion 9-11, 9-12 
I/O statements 9-1 
list 9-2 

Identification, program 1-4 
IF, three branch (arithmetic) 6-2 
two branch (logical) 6-3 
Implemented routines, character 3-7, 3-10 
type other 3 -7 
mixed mode 3-8 
Implicit type definitions 2-3 
Implied DO-loop 9-1 
Implied multiplication 3-2 
INTEGER 5-1 
Integer, constants 2-1 
variable, simple 2-3 
implicit 2-3 
explicit 2-3, 5-1 
truncation 3-7, 3-8 
conversion 3-10, 9-12, 9-13 
Internal transmission 10-14 
Iw 9-12, 9-13 

JOB card 11-1 

Label, statement 1-4 
Labeled COMMON 5-4 
.LE. 3-12 
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Length test 10-12 
Library functions 8-1, 8-2 
LOAD card 11-3 

Load-and-go object program 1-1, 11-2 
Logical expression 3-10 
operator 3-11 
IF 6-3 

units 8-1, 10-1, 11-5 
.LT. 3-12 


Machine condition subprograms 8-9 
Machine configuration 1 -1 
Masking function 3-16 
arithmetic 3-16 
Mixed mode arithmetic 3-7 
arithmetic expression 3-8 
order of evaluation 3-5 
replacement statement 4-2 
Multiple replacement statement 4-1 

.NE. 3-12 

New record specification 9-21 
Non-standard arithmetic 3-8, see t3/p)e other 
NOT 3-16 
.NOT. 3-10 


Ow conversion 9-14 
Octal constants 2-1 
Operands, mixed mode 3-8 
Operators, arithmetic 3-1 
logical 3-10 
relational 3-12 
replacement statement 4-1 
OR 3-17 
.OR. 3-10 

Order of evaluation 3-2 
mixed mode 3-7 
arithmetic expressions 3-2 
Output options 1-1 
Output statements 10-1 
Overlays 8-3 


Parity check 10-12 
PAUSE 6-7 
PRINT n, list 10-1 
Procedures for tape errors 10-14 
PROGRAM statement 7-1 
Program identification 1-4, 7-1 
sequencing 1 -4 
PUNCH n, list 10-2 


Rw conversion 9-17, 9-18 
Read statements 10-5, 10-6 
READ (i,n) list 10-6 
READ (i) list 10-5 
READ INPUT TAPE i,n, list 10-6 
READ TAPE i, list 10-5 
READ n, list 10-5 
REAL 5-1 
Real constants 2-2 

variable, simple 2-3, 5-1 
Real, implicit 2-3 
explicit 5-1 

Relational expression 3-12 
operators 3-12 
Reloc atable binary 1 -1, 11-2 
Repeated specifications 9-22 
Replacement statement, arithmetic 4-1 
multiple 4-1 
mixed mode 4-2 
Reserved storage 5-3 
Reserved word 9-4 
RETURN 7-11 
REWIND 10-11 
RUN card 11-3 


SCOPE control cards 11-1 

Segments 8-3 

Sense light 8-9 

Sense switch 8-9 

Sequencing, program 1-4 

Simple variables 2-3 

Source program 1-3 

Source program listing 1-1, 11-2 
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Space specification 9-18 
Statement, general description of 1-2 
Statement label 1-4 
continuation 1-4 
Status checking 10-11 
STOP statement 6-8 
Storage allocation 5-2, 5-4 

sharing — see EQUIVALENCE 
Storing array elements 5-2, 5-4 
Subprogram, function 7-5 
Subroutine 7-1 

Subroutine library subprogram 8-1 
Subroutine statement 7 -2 
Subscripted variable 2-4 
Subscripts, array 2-4 

Tape error procedures 10-14 
handling statements 10-10 
Test unit status 10-12 
Three branch IF 6-2 
Transmission of arrays 9-4 
Truncation of integers 3-7 
Two branch IF 6-3 
Type character arithmetic 3-7 
Type declarations 5-1 
hierarchy 3-8 
Type statements 5-1 
TYPE other 5-1 


wH specifications 9-20 
Write statements 

WRITE (i,n) list 10-3 
WRITE OUTPUT TAPE, i,n, list 10-3 
WRITE (i) list 10-2 
WRITE TAPE, i, list 10-2 
wX editing specifications 9-18 


Unconditional GO TO 6-1 
Unit status test 10-12 


Variables 

simple 2-3 

subscripted 2-4 see also 
subscripted variable 
Variable format 9-24 
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COMMENT AND EVALUATION SHEET 

3100/3200/3300/3500 COMPUTER SYSTEMS 
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